Smart Move Mouse
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
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.
소스 코드
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
원본 댓글 (3)
Wayback Machine에서 복구됨