Rezime
Možete da umetnete Windows API (programski interfejs aplikacije) u Microsoft Windows DLL biblioteku (biblioteka dinamičkih veza) da biste postavili i postavili trenutnu poziciju kursora. Trenutnu poziciju možete dobiti pomoću funkcije GetCursorPos u programu USER32.DLL.
Više informacija
Microsoft Excel nema ugrađenu funkcionalnost za postavljanje ili postavljanje pozicije kursora. Međutim, možete da koristite izjavu Declare u Microsoft Excel Visual Basic za aplikacije da biste zvali Microsoft Windows funkciju da pristupi trenutnoj poziciji. Takođe možete da koristite drugu funkciju SetCursorPos da biste postavili poziciju kursora. Funkcija SetCursorPos može da se koristi u strukturi ponavljanja za pomeranje kursora preko ekrana.
Microsoft pruža primere programa Visual Basic za procedure aplikacije samo za ilustraciju, bez ikakvih garancija izraženih ili impliciranih, uključujući, ali ne ograničene na implicirane garancije za podsajtovo i/ili fitnes u određene svrhe. Sledeće Visual Basic u ovom članku su obezbeđene "kakve jesu" i Microsoft ne garantuje da se mogu koristiti u svim situacijama. Iako Microsoft stručnjaci za podršku mogu da objasne funkcionalnost određenog makroa, oni neće izmeniti ove primere da bi pružili dodatnu funkcionalnost niti će vam pomoći da konstrućete makroe u ispunjavanju određenih potreba. Ako imate ograničeno iskustvo pri programiranju, možete da se obratite jednom od dobavljača Microsoft rešenja. Dobavljači rešenja nude širok opseg usluga zasnovanih na naknadi, uključujući kreiranje prilagođenih makroa. Više informacija o Microsoft dobavljačima rešenja potražite u članku Microsoft korisničke informacije na broju (800) 426-9400.
PRIMERI
-
Otkucajte sledeći kôd u novi modul:
' 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 -
Kliknite bilo gde unutar teksta rutine Get_Cursor_Pos i pritisnite taster F5 da biste pokrenuti Get_Cursor_Pos makro.
Prikazaće se okvir poruke sa koordinatama trenutnog položaja pokazivača miša. -
Kliknite bilo gde unutar teksta rutine Set_Cursor_Pos i pritisnite taster F5 da biste pokrenuti Set_Cursor_Pos makro.
Kursor će se dijagonalno premeštati preko ekrana.
