Как избежать остановки таймера при выскакивании MsgBox и при нажатии на кнопку “закрыть”? - VB
Формулировка задачи:
Например, во время работы программы работает таймер времени, который показывает, сколько времени осталось до завершения работы программы, но если пользователь вызывает информацию о статистике (тот самый MsgBox) или нажимает и удерживает кнопку “закрыть” (имеется в виду кнопка в правом верхнем углу формы), то таймер замораживается. Соответственно при возвращении в программу время уже неверное. Как можно избежать этого?
Чтоб таймер продолжал работать во время сообщения MsgBox и при удерживании кнопки “закрыть”. Помогите, пожалуйста.
P.S. Нужен именно MsgBox, чтоб не добавлять новые формы.
Решение задачи: «Как избежать остановки таймера при выскакивании MsgBox и при нажатии на кнопку “закрыть”?»
textual
Листинг программы
Private Declare Function MessageBox Lib 'user32' Alias 'MessageBoxA' (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long Private Sub Command1_Click() MsgBox 'VB MsgBox function' End Sub Private Sub Command2_Click() MessageBox hwnd, 'Win32 API MessageBox function', App.Title, 0 End Sub Private Sub Form_Load() Timer1.Interval = 500 Command1.Caption = 'MsgBox' Command2.Caption = 'MessageBox' End Sub Private Sub Timer1_Timer() Caption = Time$ End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д