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