窗体和图片框画图vb程序源代码.zip

Dim cX As Single, cY As Single Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then cX = X: cY = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Line (cX, cY)-(X, Y) cX = X cY = Y End If End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then cX = X: cY = Y End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Picture1.Line (cX, cY)-(X, Y) cX = X cY = Y End If End Sub