在vb中
自己做的,绝对可以用。(拜托给分哦~)
Sub form_mousemove(button As Integer, shift As Integer, x As Single, y As Single)
Text1.Text = x
Text2.Text = y
End Sub
Sub form_mousemove(button As Integer, shift As Integer, x As Single, y As Single)
Text1.Text = x
Text2.Text = y
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2011-06-17
Dim flag '全局变量
MouseDown 里面写
flag = 1
MouseUp 里面写
flag = 0
mousemove 里面写
If flag Then
Text1.Text = X
Text2.Text = Y
End If
还有字数限制,晕
MouseDown 里面写
flag = 1
MouseUp 里面写
flag = 0
mousemove 里面写
If flag Then
Text1.Text = X
Text2.Text = Y
End If
还有字数限制,晕