题目内容
(请给出正确答案)
[主观题]
设窗体上有一个名称为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
如搜索结果不匹配,请 联系老师 获取答案