|
Dim X1 As Single, X2 As Single Dim Y1 As Single, Y2 As Single Dim dragging As Boolean Private Sub Form_Load() BackColor = vbBlack End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button And 3 Then dragging = True X1 = X: Y1 = Y: X2 = X: Y2 = Y ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) DrawWidth = Rnd * 3 + 1 drwmode = vbXorPen Line (X1, Y1)-(X2, Y2), , B If Button = 2 Then FillStyle = vbFSSolid FillColor = ForeColor End If End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If dragging Then Line (X1, Y1)-(X2, Y2), , B X2 = X: Y2 = Y Line (X1, Y1)-(X2, Y2), , B End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If dragging Then dragging = False DrawMode = vbCopyPen Line (X1, Y1)-(X, Y), , B FillStyle = vbFSTransparent End If End Sub
|
|
