Draw a line from a point to specified point using LineTo API
Draw a line from a point to specified point using LineTo API
API Declarations
x As Long
y As Long
End Type
Private Declare Function LineTo Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function MoveToEx Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINT_TYPE) As Long
Rate Draw a line from a point to specified point using LineTo API
(1(1 Vote))
Dim xy As POINT_TYPE
Dim rval As Long
Form1.ForeColor = RGB(125, 255, 25)
rval = MoveToEx(Form1.hdc, 50, 50, xy)
rval = LineTo(Form1.hdc, 150, 150)
End Sub
'Visit my Homepage at
'http://www.geocities.com/marskarthik
'http://marskarthik.virtualave.net
'Email: [email protected]
Draw a line from a point to specified point using LineTo API Comments
No comments yet — be the first to post one!
Post a Comment