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

Ви зможете виклику 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.

Курсор буде перенесено діагоналі на екрані.

Потрібна додаткова довідка?

Отримуйте нові функції раніше за інших
Приєднатися до Microsoft оцінювачів

Чи були ці відомості корисні?

Наскільки ви задоволені якістю перекладу?
Що вплинуло на ваші враження?

Дякуємо за ваш відгук!

×