Как показать песочные часы во время работы программы

'Если Вам необходимо сделать действие, во время которого пользователю не
''рекомендуется' пользоваться мышью (например сделать расчеты), то лучше
'всего сменить курсор мыши на песочные часы. Используйте эту функцию и для
'восстановления вида курсора.

'Процедура служит для смены кусора на песочные часы
'и восстановления его после вторичного вызова
Public Sub HourGlass(obj As Object)
Static OrdMouse As Integer
Static fOn As Boolean
On Error Resume Next

'если повторный вызов
If Not fOn Then
OrdMouse = obj.MousePointer 'запомнить старый
obj.MousePointer = vbHourglass 'установить новый
fOn = True 'запомнить, что уже вызывали
Else 'Если нужно восстановить
obj.MousePointer = OrdMouse 'восстановить курсор
fOn = False 'запомнить, что уже восстановили
End If
End Sub

Private Sub Command1_Click()
Call HourGlass(Form1)
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как показать песочные часы во время работы программы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!