问题详情

设窗体上有一个名称为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