Как избежать остановки таймера при выскакивании 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы