Una funci\u00f3n para tener siempre a mano, sobre todo para cuando trabajemos con hdc en memoria.<\/p>\n
\r\nOption Explicit\r\nPrivate Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal lOleColor As Long, ByVal lHPalette As Long, lColorRef As Long) As Long\r\nPrivate Declare Function CreatePen Lib "gdi32.dll" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long\r\nPrivate Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpPoint As Long) As Long\r\nPrivate Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long\r\nPrivate Declare Function SelectObject Lib "gdi32.dll" (ByVal hdc As Long, ByVal hObject As Long) As Long\r\nPrivate Declare Function LineTo Lib "gdi32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long\r\n \r\n \r\nPublic Sub DrawLine(ByVal hdc As Long, _\r\n ByVal X1 As Long, _\r\n ByVal Y1 As Long, _\r\n ByVal X2 As Long, _\r\n ByVal Y2 As Long, _\r\n Optional ByVal Color As Long = -1, _\r\n Optional ByVal BorderWidth As Long = 1)\r\n \r\n Dim hPen As Long\r\n Dim TransColor As Long\r\n Dim OldPen As Long\r\n \r\n If Color <> -1 Then\r\n Call OleTranslateColor(Color, 0&, TransColor)\r\n hPen = CreatePen(0, BorderWidth, TransColor)\r\n OldPen = SelectObject(hdc, hPen)\r\n End If\r\n \r\n If X1 >= 0 Then\r\n MoveToEx hdc, X1, Y1, 0\r\n End If\r\n \r\n LineTo hdc, X2, Y2\r\n \r\n If hPen <> 0 Then\r\n SelectObject hdc, OldPen\r\n DeleteObject hPen\r\n End If\r\n \r\nEnd Sub\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"Una funci\u00f3n para tener siempre a mano, sobre todo para cuando trabajemos con hdc en memoria. Option Explicit Private Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal lOleColor As Long, ByVal lHPalette As Long, lColorRef As Long) As Long Private Declare Function CreatePen Lib "gdi32.dll" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) […]<\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[41],"tags":[73],"class_list":["post-465","post","type-post","status-publish","format-standard","hentry","category-graficos","tag-gdi32","category-41-id","post-seq-1","post-parity-odd","meta-position-corners","fix"],"_links":{"self":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/465","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/comments?post=465"}],"version-history":[{"count":2,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/465\/revisions"}],"predecessor-version":[{"id":510,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/465\/revisions\/510"}],"wp:attachment":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/media?parent=465"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/categories?post=465"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/tags?post=465"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}