原创力文档- 1、本文档共4页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
获取窗口相对坐标
示例一：无论某窗口如何改变，单击窗体某相对位置
实现：一窗体，两按钮，单击按钮一时，光标移动到按钮二上并单击（并非诸如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
文档评论（0）