Prijavite se pomoću Microsofta
Prijavite se ili stvorite račun.
Zdravo,
Odaberite drugi račun.
Imate više računa
Odaberite račun pomoću kojeg se želite prijaviti.

Sažetak

Da biste dobili i postavili trenutni položaj pokazivača, Windows api (sučelje za programiranje aplikacije) možete učitati poziv u dll sustava Microsoft Windows (dynamic-link Library) da biste dobili i postavili trenutni položaj pokazivača. Trenutni položaj možete dobiti pomoću funkcije GetCursorPos u aplikaciji USER32.DLL.

Dodatne informacije

Microsoft Excel nema ugrađene funkcije da biste dobili ili postavili položaj pokazivača. No možete koristiti izjavu Deklarirati u makronaredbi programa Microsoft Excel Visual Basic za aplikacije da biste nazvali microsoftovu Windows da biste pristupili trenutnom položaju. Da biste postavili položaj pokazivača, možete koristiti i drugu funkciju SetCursorPos. Funkcija SetCursorPos može se koristiti u strukturi petlje za pomicanje pokazivača po zaslonu.


Microsoft nudi primjere postupaka Visual Basic za aplikacije samo za ilustraciju, bez jamstva izraženog ili impliciranog, uključujući, ali ne ograničavajući se na implicirana jamstva o prikladnosti za prodaju i/ili prikladnosti za određenu svrhu. Postupci Visual Basic u ovom članku nalaze se "kako jest" i Microsoft ne jamči da se mogu koristiti u svim situacijama. Premda Microsoftovi stručnjaci za podršku mogu objasniti funkcionalnost određene makronaredbe, oni neće mijenjati te primjere da bi pružili dodatne funkcije, niti će vam pomoći u izgradnji makronaredbi da biste zadovoljili vaše specifične potrebe. Ako imate ograničeno iskustvo programiranja, obratite se jednom od Microsoftovih davatelja rješenja. Davatelji rješenja nude širok raspon servisa utemeljenih na naknadama, uključujući stvaranje prilagođenih makronaredbi. Dodatne informacije o Microsoftovim davateljima rješenja potražite u microsoftovoj službi za korisničke informacije na servisu (800) 426-9400.

PRIMJERI

  1. Upišite sljedeći kod 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
  2. Kliknite bilo gdje unutar teksta Get_Cursor_Pos i pritisnite tipku F5 da biste pokrenuli Get_Cursor_Pos makronaredbu.

    Prikazat će se okvir s porukom s koordinatama trenutnog položaja pokazivača miša.

  3. Kliknite bilo gdje unutar teksta Set_Cursor_Pos i pritisnite tipku F5 da biste pokrenuli Set_Cursor_Pos makronaredbu.

Pokazivač će se dijagonalno pomicati po zaslonu.

Potrebna vam je dodatna pomoć?

Proširite svoje vještine
Istražite osposobljavanje
Prvi koristite nove značajke
Pridružite se Microsoft Insidere

Jesu li vam ove informacije bile korisne?

Koliko ste zadovoljni jezičnom kvalitetom?
Što je utjecalo na vaše iskustvo?

Hvala vam na povratnim informacijama!

×