题目内容:
设窗体上有一个名称为Lable1的标签。程序运行时,单击鼠标左键,再移动鼠标,鼠标的位置坐标会实时地显示在Lable1标签中:单击鼠标右键则停止实时显示,并将标签中内容清除。下面的程序可实现这一功能,请填空。DimDownAsBoolean
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)
SelectCase( 8 )
Case1
Down=True
Case2
Down=False
EndSelect
EndSub
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
If( 9 )
( 10 )=”X=”&X&”Y=”&Y
Else
Label1.Caption=””
Endif
Sub
参考答案:
答案解析: