Шаг 67 - Прячем и показываем курсор

Итак, воспользовавшись функциями WIN32 API мы имеем возможность спрятать и показать курсор. Описываем функцию:

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Используем ее по нажатию на кнопку:

Private Sub Command1_Click()
ShowCursor (False)
For x = 1 To 10000000
Next x
ShowCursor (True)
End Sub

Я сделал небольшой цикл, курсор пропадет на время, а потом появится снова. В общем-то, если Вы обратили внимание, то для управления курсором Вы можете пользоваться всеми функциями WIN32 API связанными с курсором.


Загрузить проект | Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 28.10.2001