取得/設定游標所在位置的 Visual Basic 程序

摘要

您可以讓 Microsoft Windows DLL (動態連結程式庫),來取得及設定目前的游標位置呼叫 Windows API (應用程式發展介面)。在 USER32 中使用 GetCursorPos 函式,可取得目前的位置。DLL。

其他相關資訊

Microsoft Excel 並沒有內建的功能,要取得或設定游標的位置。不過,您可以使用 Declare 陳述式在 Microsoft Excel Visual Basic for Applications 巨集來呼叫 Windows 函式來存取目前的位置。您也可以使用另一個函式 SetCursorPos,若要設定游標的位置。SetCursorPos 函式可以用於迴圈的結構,來移動游標在螢幕上。Microsoft 提供的範例 Visual Basic for Applications 程序僅供說明,不做任何明示或默示的保證,其中包括,但不是限於適售性以及適合某特定用途之默示擔保責任。本文中的 Visual Basic 程序會顯示一些 ' is',Microsoft 不保證,它可用於所有情況。雖然 Microsoft 技術支援工程師可以協助說明特定的巨集的功能,不會修改這些範例以提供附加的功能,也不會協助您建構巨集來滿足您的特定需求。如果您有限制的程式設計經驗,您可能想要參閱 Microsoft 解決方案提供者之一。解決方案提供者會提供各種付費服務,包括建立自訂巨集。如需有關 Microsoft 解決方案提供者的詳細資訊,呼叫 (800) 426-9400 的 Microsoft 客戶資訊服務。

範例

  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 巨集。

游標將會下移以對角方式在螢幕上。

需要更多協助?

擴展您的技能
探索訓練
優先取得新功能
加入 Microsoft 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與我們的其中一個 Office 支援專員連絡以深入了解您的意見。

×