题目内容
（请给出正确答案）
[主观题]
每个控件有Left和Top属性，表示在窗体上的位置，当控件往上移动，Top的值增大。
如搜索结果不匹配，请 联系老师 获取答案
更多“每个控件有Left和Top属性，表示在窗体上的位置，当控件往…”相关的问题
第1题
以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 Public yx As Integer Public yy As Integer Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_ X As Single，Y As Single) If Button=1 Then Text1．Left=【 】 Text1．Top=【 】 End If End Sub Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_ X As Single，Y As Single) If【 】Then yx=Text1．Left-X yy=Text1．Top-Y End If If Button=2 Then Text1．Text=“X坐标：”+Str(Text1．Left)+“Y坐标：”+Str(Text1．Top) End If End Sub
点击查看答案
热门考试
全部 >
相关试卷
全部 >
