Rezumat
Puteți efectua un apel Windows API (interfață de programare a aplicațiilor) la un DLL Microsoft Windows (bibliotecă cu legare dinamică), pentru a obține și a seta poziția curentă a cursorului. Poziția curentă se poate obține utilizând funcția GetCursorPos în USER32.DLL.
Mai multe informații
Microsoft Excel are funcționalitatea încorporată pentru a obține sau a seta poziția cursorului. Cu toate acestea, puteți utiliza declarația Declare într-o macrocomandă Microsoft Excel Visual Basic for Applications pentru a apela o funcție Microsoft Windows pentru a accesa poziția curentă. Puteți utiliza și altă funcție SetCursorPos pentru a seta poziția cursorului. Funcția SetCursorPos poate fi utilizată într-o structură de bucle pentru a muta cursorul pe ecran.
Microsoft provides examples of Visual Basic for Applications procedures for illustration only, without warranty either expressed or implied, including, but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. Procedurile Visual Basic acest articol sunt furnizate "ca a Visual Basic" și Microsoft nu garantează că pot fi utilizate în toate situațiile. Deși specialiștii în asistență Microsoft vă pot ajuta să explicați funcționalitatea unei anumite macrocomenzi, aceștia nu vor modifica aceste exemple pentru a furniza funcționalitate suplimentară și nu vă vor ajuta să construiți macrocomenzi care să vă îndeplinească anumite cerințe. Dacă aveți experiență de programare limitată, se poate să doriți să consultați unul dintre furnizorii de soluții Microsoft. Furnizorii de soluții oferă o gamă largă de servicii contra cost, inclusiv crearea macrocomenzilor particularizate. Pentru mai multe informații despre furnizorii de soluții Microsoft, apelați Serviciul de informații clienți Microsoft la (800) 426-9400.
EXEMPLE
-
Tastați următorul cod într-un modul nou:
' Access the GetCursorPos function in user32.dll
Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
' Access the GetCursorPos function in user32.dll
Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long
' GetCursorPos requires a variable declared as a custom data type
' that will hold two integers, one for x value and one for y value
Type POINTAPI
X_Pos As Long
Y_Pos As Long
End Type
' Main routine to dimension variables, retrieve cursor position,
' and display coordinates
Sub Get_Cursor_Pos()
' Dimension the variable that will hold the x and y cursor positions
Dim Hold As POINTAPI
' Place the cursor positions in variable Hold
GetCursorPos Hold
' Display the cursor position coordinates
MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & _
"Y Position is : " & Hold.Y_Pos
End Sub
' Routine to set cursor position
Sub Set_Cursor_Pos()
' Looping routine that positions the cursor
For x = 1 To 480 Step 20
SetCursorPos x, x
For y = 1 To 40000: Next
Next x
End Sub -
Faceți clic oriunde în textul rutinei Get_Cursor_Pos și apăsați tasta F5 pentru a rula macrocomanda Get_Cursor_Pos date.
Se va afișa o casetă de mesaj cu coordonatele poziției curente a indicatorului mouse-ului. -
Faceți clic oriunde în textul rutinei Set_Cursor_Pos și apăsați tasta F5 pentru a rula macrocomanda de Set_Cursor_Pos curentă.
Cursorul se va mișca pe diagonală în jos pe ecran.
