Сайт Алексея Муртазина (Star Cat) E-mail: starcat-rus@yandex.ru
Мои программы Новости сайта Мои идеи Мои стихи Форум Об авторе Мой ЖЖ
VB коды Статьи о VB6 API функции Самоучитель по VB.NET
Собрания сочинений Обмен ссылками Все работы с фото и видео
О моём деде Муртазине ГР Картинная галерея «Дыхание души»
Звёздный Кот

67 Скрыть/показать курсор мыши
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub cShowCursor()
Dim x As Long
MsgBox "Сейчас ваш курсор мыши исчезнет на 3 секунды"
'гасим курсор
x = ShowCursor(False)
Sleep 3000
'показываем курсор
x = ShowCursor(True)
'Внимание!
'Погасив курсор,обязательно восстановите его при завершении своей программы
End Sub

Инфо
Сайт создан: 20 июня 2015 г.
Рейтинг@Mail.ru
Главная страница