Question

这一段VB程序段是什么意思？

如下：（“涂鸦”程序）
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.CurrentX = X
Form1.CurrentY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Form1.Line -(X, Y)
End Sub
Private Sub Form_DblClick()
Form1.Cls
End Sub
其中[Button As Integer, Shift As Integer, X As Single, Y As Single]
[Form1.CurrentX = X,Form1.CurrentY = Y]
[If Button = 1 Then Form1.Line -(X, Y)]
这三段不太懂，求大神讲解！

Answer 1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
这括号里的四个参数是由VB自动传递到这个事件过程中的，其中Button代表的是按下的鼠标键（比如左键为1），Shift代表键盘上Shift、Ctrl、Alt这三个键的状态（比如Ctrl按下则为2），X和Y则是鼠标在窗体上点击的坐标值（单位默认为缇）

Form1.CurrentX = X 和 Form1.CurrentY = Y
这是把窗体的“默认点”坐标设为鼠标所点击的那个点的坐标。所谓“默认点”，你可以把窗体想象成一张画纸，那么默认点就是画笔对准画纸的那个点，也就是说如果立即执行画图命令，那么就是从这个点开始的

If Button = 1 Then Form1.Line -(X, Y)
如果鼠标的左键按住并且移动鼠标，那么就在“默认点”与当前鼠标指针所在点之间画一条直线。注意，画完线后，“默认点”就会自动变为鼠标指针所在点，这样的话，如果按住鼠标左键不断在窗体内移动鼠标指针，就会持续不断地画出首尾相接的连续直线，如果鼠标移动的速度不是很快，那么线段看起来就是曲线了