Avis
Junior Poster
Joined: 07 Oct 2003
Posts: 510
Location: India
|
 Posted: Oct 8th, 2003 04:06 AM Post subject: Center the Mouse Pointer on a Control when it gets Focus |
 |
|
| Code: | Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Dim Rec As RECT
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Function CenterMouse(obj As Object)
'Get Left, Right, Top and Bottom of Object
GetWindowRect obj.hwnd, Rec
'Set Cursor position on center of Object
SetCursorPos Rec.Left + obj.Width / 2, Rec.Top + obj.Height / 2
End Function
Private Sub Command2_GotFocus()
Call CenterMouse(Command2)
End Sub
Private Sub Command1_GotFocus()
Call CenterMouse(Command1)
End Sub
Private Sub Form_Load()
ScaleMode = 3 'It must be set to pixels
MsgBox "Use the ""Tab"" key to notice the effect better"
End Sub |
|
|
