vb获取相对坐标.docx

获取窗口相对坐标

示例一：无论某窗口如何改变，单击窗体某相对位置

实现：一窗体，两按钮，单击按钮一时，光标移动到按钮二上并单击（并非诸如callcommand2_click()之类）；

重点在于坐标转换。

两CommamdButton

PrivateDeclareFunctionGetWindowRectLibuser32_(ByValhwndAsLong,lpRectAsRECT)AsLong

PrivateDeclareSubmouse_eventLibuser32(ByValdwFlagsAs

Long,ByValdxAsLong,ByValdyAsLong,ByValcButtonsAsLong,ByValdwExtraInfoAsLong)

PrivateDeclareFunctionSetCursorPosLibuser32(ByValxAsLong,ByValyAsLong)AsLong

PrivateTypeRECT

leftAsLongtopAsLongrightAsLongbottomAsLongEndType

PrivateTypePOINT

xAsLongyAsLongEndType

ConstMOUSEEVENTF_LEFTDOWNAsInteger=H2ConstMOUSEEVENTF_LEFTUPAsInteger=H4PrivateSubCommand1_Click()测试键

DimreAsRECT,ptAsPOINT,xAsLong,yAsLongGetWindowRectMe.hwnd,re获取窗口矩形信息

x=re.left+(Command2.left+Command2.Width/2)/Screen.TwipsPerPixelX

y=re.top+(Command2.top+Me.Height-Me.ScaleHeight+Command2.Height/2)/Screen.TwipsPerPixelY

SetCursorPosx,y移动光标至(x,y)

mouse_eventMOUSEEVENTF_LEFTDOWN,0,0,0,0

mouse_eventMOUSEEVENTF_LEFTUP,0,0,0,0EndSub

目标按钮

PrivateSubCommand2_Click()MsgBoxYouhaveclickedme！EndSub

示例二：坐标三步转换，窗体上有图像框，图像框上有坐标系，显示鼠标在坐标系位置

注：坐标系为数学常用坐标系，原点在左下角

实现：获取光标位置，转换成窗体位置，转换成图像框位置，转换为坐标系位置。

一PictureBox

PrivateDeclareFunctionGetCursorPosLibuser32(lpPointAsPOINTAPI)AsLong

PrivateDeclareFunctionScreenToClientLibuser32(ByValhwndAsLong,lpPointAsPOINTAPI)AsLong

PrivateTypePOINTAPIxAsLong

yAsLongEndType

DimptAsPOINTAPIPrivateSubForm_Load()

Timer1.Interval=100

EndSub

PrivateSubTimer1_Timer()GetCursorPospt获取鼠标屏幕位置

ScreenToClientMe.hwnd,pt转换成窗口位置

Ifpt.xPicture1.left/Screen.TwipsPerPixelXAnd_

pt.x(Picture1.left+Picture1.Width)/Screen.TwipsPerPixelX_Andpt.yPicture1.top/Screen.TwipsPerPixelYAnd_

pt.y(Picture1.top+Picture1.Height)/Screen.TwipsPerPixelYThenPicture1.Cls

Picture1.Printpt.x-Picture1.left/Screen.TwipsPerPixelX

,_

(Picture1.to