Question

一个VB最最最简单的画板

FormLoad后、按下鼠标左键、就可以在窗体里任意留下鼠标痕迹~~就这么简单~~

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.DrawWidth = 5 If Button = 1 Then Me.PSet (X, Y) End If End Sub

Answer 2

Dim isWork As Boolean Dim Rx, Ry As Single Private Sub Form_Load() isWork = False End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) isWork = True Rx = X Ry = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If (isWork And Button = 1) Then Line (Rx, Ry)-(X, Y) Rx = X Ry = Y Else If (Button = 2) Then Form1.Cls End If End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) isWork = False End Sub