Программирование
Веб программирование

Работа с курсором мыши

 
 

Для использование своего курсора есть спец АПИ функция. Вот код:

Private Declare Function CopyCursor Lib "user32" Alias "CopyIcon" (ByVal hcur As Long) As Long
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpMyFileName As String) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private NewCur, OldCur As Long

Private Sub Form_Load()
NewCur = LoadCursorFromFile("c:APPSTART.ani")'Там где необходимо запоминаем системный курсор и загружаем анимированный
OldCur = GetCursor()
OldCur = CopyCursor(OldCur)
SetSystemCursor NewCur, 32512

End Sub

Private Sub Form_Unload(Cancel As Integer)
If OldCur <> 0 Then SetSystemCursor OldCur, 32512'Выгружаем наш курсор и возвращаем стандартный
End Sub

А ты спросишь: "Где ani курсора достать?" Нажми F3 и впиши *.ani, и он должен в папке Windows найти 3 анимированных курсора.


Есть вопросы? Спроси на нашем форуме!!
zkov [19.05.2012 14:36]

а как можно самим курсор нарисовать?

v19307310 [29.12.2013 11:58]

Всех с наступающим! Срочно нужна помощь....подскажите пжлст как программно написать изменение ПОЗИЦИИ курсора..(например после какого ни будь события курсор переходил в нужное окно или ....да и ещё кликал сам)

Stertor370 [29.12.2013 13:45]

Можно с помощью API SetCursorPos и mouseevent.
Сразу предупреждаю: двигаться на экране ничего не будет - функция mouse
event просто вызывает событие "Клик мышкой" в указанных координатах экрана, и все. Также посмотри API PostMessage,FindWindow,GetWindowText.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.