(填空题)填空题:鼠标事件与窗体绘图
考虑以下程序,它通过鼠标事件在窗体上绘制图形。按下鼠标开始绘图,双击窗体清除所有图形。请补充完整程序中的缺失部分。
在窗体层定义变量:
Dim PaintStart As Boolean
编写以下事件过程:
Private Sub Form_Load ( )
DrawWidth = 2
ForeColor = vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PaintStart = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp (Button As Integer, Shift As Integer, _
X As Single, Y As Single)
______
End Sub
Private Sub Form_DblClick( )
Cls
End Sub
- A. PaintStart = False
提问:
请问在上述程序中,当鼠标松开时,应该如何设置变量PaintStart的值以确保绘图停止?这个设置在鼠标事件处理中扮演了什么角色?
复习要点:
理解鼠标事件(MouseDown, MouseMove, MouseUp)在窗体绘图中的应用。掌握如何使用布尔变量控制绘图状态,以及如何通过PSet方法在窗体上绘制点。
查阅资料方向:
查阅有关鼠标事件和窗体绘图的资料,特别是如何使用布尔变量控制绘图状态,以及PSet方法的使用。