Domů › 4_2005-2006 › Smart Move Mouse
Advertisement
4_2005-2006 Miscellaneous #164854

Smart Move Mouse

Warren Goff
★★★★★
4.8 · Stažení: 2,341

I wanted to have the cursor to move to my focused command buttons to direct the action and be more user friendly. This little thing does the trick. I found it in some old code of mine but I think it was borrowed back then.

AI

Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Zdrojový kód
original-source 
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
Private Sub Form_Activate()
  Command1.SetFocus
  MoveMouse 97, 72
End Sub
Původní komentáře (3)
Obnoveno z Wayback Machine