在窗体的mousemove事件中就可以取得鼠标的位置,在窗体放四个文本框，输入以下代码
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
text1=x
text2=y
text3=button
text4=shift
End Sub
该事件有三个参数，其中button表示鼠标移动过程中哪个键在按下状态，shift表示鼠标在移动过程中shift,alt,ctrf哪个键被按下，x表示鼠标的水平位置，y表示鼠标的垂直位置。你可以自己测试各值表示什么键被按下。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024