Visual Basic διαδικασίας για τη λήψη/ορισμό της θέσης του δρομέα

ΠΑΡΑΔΕΊΓΜΑΤΑ

1. Πληκτρολογήστε τον παρακάτω κώδικα σε μια νέα λειτουργική μονάδα:
   

   ' 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. Κάντε κλικ σε οποιοδήποτε σημείο μέσα στο κείμενο της Get_Cursor_Pos ρουτίνας και πατήστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή Get_Cursor_Pos.
   
   Θα εμφανιστεί ένα πλαίσιο μηνύματος με τις συντεταγμένες της τρέχουσας θέσης του δείκτη του ποντικιού.
   

3. Κάντε κλικ σε οποιοδήποτε σημείο μέσα στο κείμενο της Set_Cursor_Pos ρουτίνας και πατήστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή Set_Cursor_Pos.
   

Ο δρομέας θα μετακινηθεί διαγώνια προς τα κάτω κατά μήκος της οθόνης.