Bejelentkezés Microsoft-fiókkal
Jelentkezzen be, vagy hozzon létre egy fiókot.
Üdvözöljük!
Válasszon másik fiókot.
Több fiókja van
Válassza ki a bejelentkezéshez használni kívánt fiókot.

Ö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

  1. Í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
  2. 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.

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

További segítségre van szüksége?

További lehetőségeket szeretne?

Fedezze fel az előfizetés előnyeit, böngésszen az oktatóanyagok között, ismerje meg, hogyan teheti biztonságossá eszközét, és így tovább.

A közösségek segítségével kérdéseket tehet fel és válaszolhat meg, visszajelzést adhat, és részletes ismeretekkel rendelkező szakértőktől hallhat.

Hasznos volt ez az információ?

Mennyire elégedett a fordítás minőségével?
Mi volt hatással a felhasználói élményére?

Köszönjük a visszajelzését!

×