Функция ShowCursor
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
ShowCursor показывает или скрывает курсор мыши. При этом курсор становится невидимым, но не отключается!
Параметры
- bShow
- Если False, то курсор невидим, если True - курсор видим
Пример
' Прячем курсор на 3 секунды
Dim X As Long
MsgBox "Сейчас ваш курсор мыши исчезнет на 3 сек"
' гасим курсор
X = ShowCursor(False)
Sleep 3000
' показываем курсор
X = ShowCursor(True)
' Внимание! Погасив курсор,
' обязательно восстановите его при завершении
Категория
Курсор