Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (54.05 KB, 1 trang )
Đưa con trỏ đến một vị trí nhất định home
Xuất xứ : www.pscode.com
Binh khí sử dụng : Một Module, 2 nút ấn (CommandButton)
Đoạn mã :
Module :
Public Type POINTAPI
X As Long
Y As Long
End Type
Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint
As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long,
ByVal Y As Long) As Long
Sub MoveMouse(X As Single, Y As Single)
Dim pt As POINTAPI
pt.X = X
pt.Y = Y
ClientToScreen Form1.hwnd, pt
SetCursorPos pt.X, pt.Y
End Sub
Form :
Private Sub Form_Load()
MoveMouse 500, 400
End Sub