黛珂官网中国从哪发货:如何获得vb中鼠标在窗口的坐标

来源:百度文库 编辑:偶看新闻 时间:2024/04/26 16:51:00

如何获得vb中鼠标在窗口的坐标
a>
这么简单的问题,楼上不回就别光给个API完事! 直接复制到vb中运行,顺便给你一个显示坐标的代码,需要添加两个 label~呵呵,满意的话,给分哦~ Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type Private Sub Form_Click()
Dim firendless As POINTAPI GetCursorPos firendless
MsgBox " 鼠标x位置:" & firendless.X & " 鼠标y位置:" & firendless.Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = (X)
Label2.Caption = (Y)
End Sub
本贴来自ZDNetChina中文社区 http://bbs.zdnet.com.cn ,本贴地址:http://bbs.zdnet.com.cn/viewthread.php?tid=563276