VB获取窗口内某一点的坐标

求能够获取在指定某窗口内某一点的坐标!!PS:指定某窗口内~~~~不是整个屏幕!请看仔细,谢谢了!!PS:主要用于获取其他窗口内某一点的坐标,PrivateSubForm... 求能够获取在指定某窗口内某一点的坐标!!
PS:指定某窗口内~~~~不是整个屏幕!请看仔细,谢谢了!!
PS:主要用于获取其他窗口内某一点的坐标,
Private Sub Form_MouseUp
这样不是只能在form窗体点击才有用?那有什么意义?不明白?

PSPSPSP:
是我没听懂还是你们没听懂呢?
我要的是获取指定的其他窗口(比如说蜘蛛纸牌里)的某一点坐标,
你们这样不是只能获取在这个VB工程窗体里的某一点,这并不是我要的!?
展开
 我来答
zfcsl
2008-08-24 · TA获得超过203个赞
知道小有建树答主
回答量:254
采纳率:0%
帮助的人:360万
展开全部
窗体中加入一个Timer,代码如下:

Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type WINDOWPLACEMENT
Length As Long
flags As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type

Private Sub Form_Load()
Timer1.Interval = 15
End Sub

Private Sub Timer1_Timer()
Dim pt As POINTAPI
Dim wfp As WINDOWPLACEMENT
Dim myhwnd As Long
Dim r As Long
GetCursorPos pt
myhwnd = WindowFromPoint(pt.x, pt.y)
r = GetWindowPlacement(myhwnd, wfp)

Cls
Print "Current hWnd:" & myhwnd
Print "X:" & pt.x - wfp.rcNormalPosition.Left
Print "Y:" & pt.y - wfp.rcNormalPosition.Top
End Sub

该代码可以得到鼠标在所指的窗体中的相对坐标

上面的myhwnd为窗体句柄。

当然除了WindowFromPoint函数,你也可以使用getwindowlong或者getforegruondwindow等函数获得窗体句柄。
ljl88900
2008-08-24 · TA获得超过2661个赞
知道大有可为答主
回答量:2197
采纳率:100%
帮助的人:2619万
展开全部
一、函数声明:
Type PointAPI
x As Long
y As Long
End Type

Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As PointAPI) As Long
二、调用举例:
假如已知目标窗口的Hwnd,其内部某点相对于屏幕的坐标为x,y
那么,该点相对于窗口内的坐标为:
Dim lu_POINT As PointAPI
lu_POINT.x = x
lu_POINT.y = y
ScreenToClient DstWnd, lu_POINT
此时,返回的lu_POINT.x、lu_POINT.y就是内部坐标了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
43295811
2008-08-24 · TA获得超过1529个赞
知道大有可为答主
回答量:1701
采纳率:0%
帮助的人:2039万
展开全部
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
Print X, Y
End Sub

把鼠标在窗体内移动就会在窗体上打印出坐标,单位是twip
你可以根据需要修改度量单位,加一句scalemode=3 就是像素,还有其他的,自己改吧
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式