下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：Dim PaintStart As Boolean编写如下事件过程：Private Sub Form_Load()DrawWidth=2ForeColor=vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X AS Single，Y AS Single)PaintStart=T
题目
下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：
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
相似考题
更多“下面程序是由鼠标事件在窗体上画图,如果按下鼠标可以画图,双击窗体则可以清除所画图形。补充完整 ”相关问题
-
第1题：
以下叙述中错误的是 ______。
A．双击鼠标可以触发DblClick事件
B．窗体或控件的事件的名称可以由编程人员确定
C．移动鼠标时，会触发MouseMove事件
D．控件的名称可以由编程人员设定
正确答案：B
解析：VisualBasic中的事件是事先定义好的，事件名称不能由编程人员确定，但控件名称可由编程人员确定。 -
第2题：
当一个对象(如窗体或图片框)被移动或改变大小之后,或当一个覆盖该窗体被移开之后,如果要保持该所画图形的完整性,可以选择触发()事件来完成图形的重画工作.A、Paint
B、Load
C、Click
D、Active
正确答案：A
-
第3题：
2、窗体的Load事件，在 时候触发。
A．当应用程序启动后
B．当鼠标单击窗体时
C．当鼠标双击窗体时
D．当窗体变成活动窗体时
E．当改变窗体的大小时
当应用程序启动后 -
第4题：
当一个对象(如窗体或图片框)被移动或改变大小之后，或当一个覆盖该对象的窗体被移开之后，如果要保持该对象上所画图形的完整性，可以选择触发( )事件来完成图形的重画工作。
A．Paint
B．Load
C．Click
D．Active
正确答案：A
-
第5题：
在窗体上按下鼠标左键时产生的事件是（）。
AKey Down
BMouse Up
CMouse Move
DMouse Down
D
略