vb獲取相對(duì)坐標(biāo).doc

獲取窗口相對(duì)坐標(biāo)示例一：無(wú)論某窗口如何改變，單擊窗體某相對(duì)位置實(shí)現(xiàn)：一窗體，兩按鈕，單擊按鈕一時(shí)，光標(biāo)移動(dòng)到按鈕二上并單擊（并非諸如call command2_click()之類）；重點(diǎn)在于坐標(biāo)轉(zhuǎn)換。兩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() 測(cè)試鍵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 移動(dòng)光標(biāo)至(x,y)mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0End Sub目標(biāo)按鈕Private Sub Command2_Click()MsgBox You have clicked me ！End Sub示例二：坐標(biāo)三步轉(zhuǎn)換，窗體上有圖像框，圖像框上有坐標(biāo)系，顯示鼠標(biāo)在坐標(biāo)系位置注：坐標(biāo)系為數(shù)學(xué)常用坐標(biāo)系，原點(diǎn)在左下角實(shí)現(xiàn)：獲取光標(biāo)位置，轉(zhuǎn)換成窗體位置，轉(zhuǎn)換成圖像框位置，轉(zhuǎn)換為坐標(biāo)系位置。一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 獲取鼠標(biāo)屏幕位置 ScreenToClient Me.hwnd, pt 轉(zhuǎn)換成窗口位置 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