Процедура на Visual Basic да/Set курсора позиция

Обобщена информация

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

Повече информация

Microsoft Excel няма вградени функции, за да получите или позицията на курсора. Обаче можете да използвате Declare отчет в Microsoft Excel Visual Basic for Applications макрос да се обадите на Microsoft Windows функция за достъп до текущата позиция. Също така можете да използвате друга функция SetCursorPos да зададете позиция на курсора. SetCursorPos функция може да се използва в циклична структура за преместване на курсора на екрана. Microsoft предоставя примери на Visual Basic за приложения процедури само за илюстративни цели без гаранция изрични или подразбиращи се, включително, но не само подразбиращи се гаранции за продаваемост и/или годност за определена цел. Visual Basic процедурите в тази статия се предоставят "както е" и Microsoft не гарантира, че те може да се използва във всички случаи. Докато специалистите по поддръжка на Microsoft могат да помогнат обяснение на функциите на даден макрос, те няма да модифицират тези примери с цел предоставяне на допълнителна функционалност, нито ще помогне да се изгради макроси на нуждите ви. Ако имате ограничен опит програмиране, можете да се консултирате с един от доставчиците на решения на 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 приобщени

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×