Как изменить курсор мышки - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д