vb获取相对坐标.doc

获取窗口相对坐标示例一：无论某窗口如何改变，单击窗体某相对位置实现：一窗体，两按钮，单击按钮一时，光标移动到按钮二上并单击（并非诸如call command2_click()之类）；重点在于坐标转换。两CommamdButtonPrivate Declare Function GetWindowRect Lib user32 _(ByVal hwnd As Long, lpRect As RECT) As LongPrivate Declare Sub mouse_event Lib user32 (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Declare Function SetCursorPos Lib user32 (ByVal x As Long, ByVal y As Long) As LongPrivate Type RECTleft As Longtop As Longright As Longbottom As LongEnd TypePrivate Type POINTx As Longy As LongEnd TypeConst MOUSEEVENTF_LEFTDOWN As Integer = &H2Const MOUSEEVENTF_LEFTUP As Integer = &H4Private Sub Command1_Click() 测试键Dim re As RECT, pt As POINT, x As Long, y As LongGetWindowRect Me.hwnd, re 获取窗口矩形信息x = re.left + (Command2.left + Command2.Width / 2) / Screen.TwipsPerPixelXy = re.top + (Command2.top + Me.Height - Me.ScaleHeight + Command2.Height / 2) / Screen.TwipsPerPixelYSetCursorPos x, y 移动光标至(x,y)mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0End Sub目标按钮Private Sub Command2_Click()MsgBox You have clicked me ！End Sub示例二：坐标三步转换，窗体上有图像框，图像框上有坐标系，显示鼠标在坐标系位置注：坐标系为数学常用坐标系，原点在左下角实现：获取光标位置，转换成窗体位置，转换成图像框位置，转换为坐标系位置。一PictureBoxPrivate Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) As LongPrivate Declare Function ScreenToClient Lib user32 (ByVal hwnd As Long, lpPoint As POINTAPI) As LongPrivate Type POINTAPI x As Long y As LongEnd TypeDim pt As POINTAPIPrivate Sub Form_Load() Timer1.Interval = 100End SubPrivate Sub Timer1_Timer() GetCursorPos pt 获取鼠标屏幕位置 ScreenToClient Me.hwnd, pt 转换成窗口位置 If pt.x Picture1.left / Screen.TwipsPerPixelX And _ pt.x Picture1.top / Screen.TwipsPerPixelY And _ pt.y (Picture1.top + Picture1.Height) / Screen.TwipsPerPixelY Then Picture1.Cls Picture1.Print pt.x - Picture1.left / Screen.TwipsPerPixelX & , & _ (Picture1.top + Picture1