Kokkuvõte

Praeguse kursori asukoha avamiseks Windows (rakenduse programmeerimisliides) helistada Microsoft Windows DLL-ile (dünaamilise lingi teek). Praeguse asukoha saab hankida funktsiooni GetCursorPos abil USER32.DLL.

Lisateave

Microsoft Excel pole sisseehitatud funktsiooni kursori asukoha toomiseks või soovitud asukoha miseks. Siiski saate makros Microsoft Excel Visual Basic for Applications kasutada lauset Deklareeri, et helistada microsoft Windows funktsioonile, et pääseda juurde praegusele asukohale. Kursori asukoha häälestamiseks saate kasutada ka mõnda muud funktsiooni SetCursorPos. Funktsiooni SetCursorPos saab kasutada silmusstruktuuris kursori viimiseks üle ekraani.


Microsoft pakub näiteid Visual Basic rakenduste jaoks mõeldud protseduuride kohta, mis on mõeldud ainult illustratsiooniks, ilma et see oleks väljendatud ega kaudsed, sh, kuid mitte ainult, kaudsed garantiid kaubastatavuse ja/või teatud otstarbeks sobivuse kohta. Selles Visual Basic on toodud "nagu on" ja Microsoft ei taga, et neid saab kasutada kõigis olukordades. Kuigi Microsofti tugitöötajad saavad aidata selgitada konkreetse makro funktsioone, ei muuda nad neid näiteid lisafunktsioonide loomiseks ega aita teil koostada makrosid vastavalt teie vajadustele. Kui teil on piiratud programmeerimiskogemus, võite soovida nõu pidada ühe Microsofti lahendusepakkujaga. Lahendusepakkujad pakuvad laias valikus tasupõhiseid teenuseid, sh kohandatud makrode loomist. Microsofti lahenduste pakkujate kohta lisateabe saamiseks helistage Microsofti klienditeabe teenusesse (800) 426-9400.

NÄITED

  1. Tippige uude moodulisse järgmine kood:

    ' 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. Klõpsake suvalist kohta Get_Cursor_Pos ja vajutage makro käivitamiseks klahvi F5 Get_Cursor_Pos.

    Kuvatakse teateboks koos hiirekursori praeguse asukoha koordinaatidega.

  3. Klõpsake suvalist kohta Set_Cursor_Pos ja vajutage makro käivitamiseks klahvi F5 Set_Cursor_Pos.

Kursor liigub diagonaalselt üle ekraani allapoole.

Kas vajate veel abi?

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liitu Microsofti Insideri programmis osalejad

Kas sellest teabest oli abi?

Kui rahul te keelekvaliteediga olete?
Mis mõjutas teie hinnangut?

Täname tagasiside eest!

×