Процедуру Visual Basic для отримання/встановлення курсор.


Загальні відомості


Ви зможете виклику Windows API (інтерфейс програмування застосунків) для Microsoft Windows DLL (бібліотека динамічного компонування) і значення поточного положення курсору. Поточне можна отримати за допомогою функції GetCursorPos USER32. DLL.

Додаткові відомості


Microsoft Excel має функція отримати або встановити позицію курсора. Проте можна заявити твердження у Microsoft Excel Visual Basic для застосунків макрос для виклику функції Microsoft Windows для доступу до поточного положення. Також функція інший SetCursorPos встановити позицію курсору. SetCursorPos функції можна використовувати в циклічного копіювання вмісту у структурі курсор на екрані. Корпорація Майкрософт надає приклади Visual Basic для застосунків процедур, тільки для ілюстрації без гарантій – прямих або інших, включаючи, без обмеження будь-яких гарантій придатності до продажу та/або придатності для певної мети. Процедур Visual Basic, у цій статті надається "як", і корпорація Майкрософт не гарантує, що вони можуть бути використані в будь-яких ситуаціях. У той час як фахівці служби підтримки Майкрософт можуть пояснити функціональні можливості, зокрема макрос, не будуть змінювати приклади надати додаткові функції, а також їх можна створювати макроси для виконання. Якщо у вас обмежений досвіду програмування, ви можете звернутися до одного з провайдерів рішення Microsoft. Постачальники рішень, пропонують різноманітні платні послуги, зокрема, створення настроюваних макросів. Щоб отримати додаткові відомості про Microsoft надаються відомості служби підтримки клієнтів Microsoft на (800) 426-9400 зателефонуйте.

ПРИКЛАДИ

  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.
Курсор буде перенесено діагоналі на екрані.