Összefoglalás
A microsoft Windows-DLL-hez (dinamikus csatolású könyvtár) Windows API-t (alkalmazásprogramozási felületet) is hívhat, és beállíthatja a kurzor aktuális pozícióját. Az aktuális pozíció a GetCursorPos függvény használatával szerezhető USER32.DLL.
További információ
Microsoft Excel rendelkezik a kurzor pozíciójának be- vagy beállítására használható beépített funkcióval. A Declare utasítást használhatja azonban Microsoft Excel Visual Basic for Applications microsoft Windows az aktuális pozíció eléréséhez. A kurzor pozíciójának beállítására másik SetCursorPos függvényt is használhat. A SetCursorPos függvény ismétléses struktúrában használható a kurzor képernyőn való mozgatásához.
A Microsoft csak illusztrációs Visual Basic for Applications példákat biztosít, kifejezett vagy vélelmezett garancia nélkül, beleértve többek között az alkalmazhatóságra és/vagy adott célra való alkalmasságra vonatkozó vélelmezett garanciát. A Visual Basic eljárásokat "adott helyzetben" biztosítjuk, és a Microsoft nem garantálja, hogy minden helyzetben használhatók. Bár a Microsoft terméktámogatási szakemberei elmagyarázzák egy adott makró funkcióját, nem módosítják ezeket a példákat további funkciókkal, és az egyéni igényeknek megfelelő makrók felépítését sem segítik. Ha kevés programozási tapasztalattal rendelkezik, forduljon a Microsoft megoldásszolgáltatóihoz. A megoldásszolgáltatók díjalapú szolgáltatások széles választékát kínálják, beleértve az egyéni makrók létrehozását. A Microsoft megoldásszolgáltatóiról további információt a Microsoft ügyfélszolgálata hívja a (800) 426-9400-asszámon.
PÉLDÁK
-
Írja be a következő kódot egy új modulba:
' 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 -
Kattintson az egérgomb Get_Cursor_Pos szövegébe, és nyomja le az F5 billentyűt a makró Get_Cursor_Pos futtatásához.
Megjelenik egy üzenetmező az egérmutató aktuális pozíciójának koordinátáival. -
Kattintson az egérgomb Set_Cursor_Pos szövegébe, és nyomja le az F5 billentyűt a makró Set_Cursor_Pos futtatásához.
A kurzor átlósan mozog a képernyőn.
