问题:

(填空题)填空题:鼠标事件与窗体绘图

考虑以下程序,它通过鼠标事件在窗体上绘制图形。按下鼠标开始绘图,双击窗体清除所有图形。请补充完整程序中的缺失部分。
在窗体层定义变量:
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方法的使用。

可能感兴趣的题目: