请教VB高手帮编一个小程序

来源：百度知道 编辑：UC知道 时间：2024/09/28 08:00:35
我想要一个如下功能的小程序：
比如一个类似command 按钮，其上面有个直线标志，当点击这个按钮时，就能画直线，这个直线并不在固定位置，即我想在哪画就在哪画，就像CAD里画线的差不多。

Dim LX As Long
Dim LY As Long
Dim MD As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (X, Y)
LX = X
LY = Y
MD = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MD = True Then
Me.Line (LX, LY)-(X, Y)
LX = X
LY = Y
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MD = False
End Sub

Dim LX As Long
Dim LY As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (X, Y)
LX = X
LY = Y
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Line (LX, LY)-(X, Y)
End Sub