Как изменить курсор мышки - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день! я конечно не знаток бэйсика но сейчас приходится в скором темпе его изучать. И в связи с производственной необходимостью возник вопрос... Мне нужно отследить изменение курсора мышки вне формы. То есть изменение курсора когда форма сама свернута... по всей видимости должно быть что-то типа:
Но чего-то не работает... Подскажите кто чем может)

Решение задачи: «Как изменить курсор мышки»

textual
Листинг программы
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
Dim a
 
Private Sub Form_Load()
NewCur = LoadCursorFromFile("c:\banana.ani")
OldCur = GetCursor()
OldCur = CopyCursor(OldCur)
SetSystemCursor NewCur, 32512
a = GetCursor()
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
If OldCur <> 0 Then SetSystemCursor OldCur, 32512
End Sub
 
Private Sub Timer1_Timer()
If GetCursor <> a Then MsgBox "'Change"
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.727 из 5