设窗体上有一个名称为label1的标签 程序运行时 单击鼠标左键 再移动鼠标 鼠标的位置坐标会实时地
单击,标签,窗体
已帮助 人
设窗体上有一个名称为label1的标签，程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在label1标签中，单击鼠标右键则停止实时显示，并将标签中内容清除，下面的程序可实现这一功能，请填空。
Dim down as Boolean
Private Sub form_mousedown(button as integer,shIft as integer,X as single, Y as single)
Select Case【8】
Case 1
Down=true
Case2
Down=false
End select
End Sub
Private Sub form. mousemove(button as integer,shIft as integer,X as single, Y as single)
If 【9】then
【10】=”X-” & X & ” Y-” & Y
Else
Label1.caption=””
End If
End Sub
-
参考答案：【答案】：【8】Button【知识点】：鼠标事件的用法
【解析】：Button参数中存储的是按下的是左键还是右键，这个程序向判断按下的那个键然后存储到变量down中，因此要使用这个参数Button。【答案】：【9】down【知识点】：模块级变量的使用
【解析】：模块级变量，用来判断点击过鼠标左键或者右键。点击过鼠标左键，down=true，点击过鼠标右键，down = false【答案】：【10】Label1.Caption【知识点】：标签控件的用法
【解析】：内容要显示在标签中，因此用Label1.Caption来接受内容。