Visual Basic thủ tục để Lấy/Đặt vị trí con trỏ

VÍ DỤ

1. Nhập mã sau đây vào mô-đun mới:
   

   ' 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. Bấm vào vị trí bất kỳ bên trong văn bản của Get_Cursor_Pos trình và nhấn phím F5 để chạy macro Get_Cursor_Pos kỳ.
   
   Bạn sẽ thấy một hộp thông báo hiển thị với các tọa độ của vị trí hiện tại của con trỏ chuột.
   

3. Bấm vào vị trí bất kỳ bên trong văn bản của Set_Cursor_Pos trình và nhấn phím F5 để chạy macro Set_Cursor_Pos kỳ.
   

Con trỏ sẽ di chuyển theo đường chéo xuống trên màn hình.