Ö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.
