VBA窗体画图

2024年3月21日发(作者：)

End Type

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub Form_Load()

Dim pt As POINTAPI

Dim hPen As Long

Dim hPenPrev As Long

hPen = CreatePen(PS_DOT, 1, vbRed)

draw = True

hPenPrev = SelectObject(, hPen) MoveToEx , 10, 100, pt

LineTo , 200, 100

SelectObject , hPenPrev

DeleteObject hPen

End Sub