Как показать песочные часы во время работы программы
'Если Вам необходимо сделать действие, во время которого пользователю не ''рекомендуется' пользоваться мышью (например сделать расчеты), то лучше 'всего сменить курсор мыши на песочные часы. Используйте эту функцию и для 'восстановления вида курсора.
'Процедура служит для смены кусора на песочные часы 'и восстановления его после вторичного вызова 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 - "Как показать песочные часы во время работы программы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!