Visual Basic-Procedure op de cursorpositie Get/Set

Samenvatting

U kunt Windows API (application programming interface) bellen naar een Microsoft Windows-DLL (dynamic link Library) ophalen en instellen van de huidige cursorpositie. De huidige positie kan worden verkregen met behulp van de functie GetCursorPos in USER32. DLL-BESTAND.

Meer informatie

Microsoft Excel beschikt niet over de ingebouwde functie voor het ophalen of instellen van de cursor zich bevindt. Echter, kunt u de Declare-instructie in een Visual Basic for Applications-macro van Microsoft Excel een functie van Microsoft Windows voor toegang tot de huidige positie. U kunt ook een andere functie SetCursorPos stelt de cursorpositie. De SetCursorPos-functie kan worden gebruikt in een herhaling structuur aan met de cursor over het scherm. Microsoft verstrekt voorbeelden van Visual Basic for Applications-procedures dienen uitsluitend ter illustratie expliciete of impliciete, met inbegrip van maar niet beperkt tot de impliciete garanties van verkoopbaarheid en/of geschiktheid voor een bepaald doel. De Visual Basic-procedures in dit artikel worden geleverd 'zoals is' en Microsoft kan niet garanderen dat ze kunnen worden gebruikt in alle situaties. Terwijl de medewerkers van Microsoft Productondersteuning kunnen voor uitleg over de functionaliteit van een bepaalde macro, ze deze voorbeelden om de toegevoegde functionaliteit niet worden gewijzigd, noch worden ze te maken van macro's aan uw specifieke behoeften. Als uw kennis van programmeren beperkt is, kunt u contact opnemen met één van de Microsoft Solution Providers. Solution Providers bieden een breed scala van services op basis van kosten, met inbegrip van aangepaste macro's maken. Bel de klantenservice met informatie van Microsoft op (800) 426-9400 voor meer informatie over Microsoft Solution Providers.

VOORBEELDEN

  1. Typ de volgende code in een nieuwe module:

    ' 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. Klik ergens in de tekst van de Get_Cursor_Pos-routine en druk op de toets F5 de macro Get_Cursor_Pos uit te voeren. Er verschijnt een berichtvenster weergegeven met de coördinaten van de huidige positie van de muisaanwijzer.

  3. Klik ergens in de tekst van de Set_Cursor_Pos-routine en druk op de toets F5 de macro Set_Cursor_Pos uit te voeren.

De cursor wordt diagonaal omlaag verplaatsen op het scherm.

Meer hulp nodig?

Uw vaardigheden uitbreiden
Training verkennen
Als eerste nieuwe functies krijgen
Deelnemen aan Microsoft insiders

Was deze informatie nuttig?

Hoe tevreden bent u met de vertaalkwaliteit?

Wat heeft uw ervaring beïnvloed?

Hebt u aanvullende feedback? (Optioneel)

Bedankt voor uw feedback.

×