Как сделать всплывающее окно над всеми другими окнами - VB
Формулировка задачи:
написал простенькую программу - таймер:
как мне сделать так, чтобы MsgBox всплывало поверх остальных окон. если MsgBox для таких целей не подходит то подскажите, что использовать. заранее спасибо)
P.S. я использовал оптимальный вариант подобной программы или можно было написать как то проще?)
Листинг программы
- Private Sub start_Click()
- Dim j As Integer, h As Byte, m As Byte, s As Byte
- Timer1.Interval = 1000 'интервал
- Timer1.Enabled = True 'включение таймера
- End Sub
- Private Sub Timer1_Timer()
- s = Text3 'секунды
- m = Text2 'минуты
- h = Text1 'часы
- If s > 0 Then 'изменение секунд
- s = s - 1
- End If
- If m = 0 And h <> 0 Then 'изменение часов
- m = 59
- s = 59
- c = c - 1
- End If
- If s = 0 And m <> 0 Then 'изменение минут
- s = 59
- m = m - 1
- End If
- Text1 = h 'вывод оставшегося времени
- Text2 = m
- Text3 = s
- If s = 0 Then 'если времени не осталось завершить
- MsgBox ("ТАЙМЕР!!!!")
- Timer1.Enabled = False
- End If
- End Sub
Решение задачи: «Как сделать всплывающее окно над всеми другими окнами»
textual
Листинг программы
- Option Explicit
- Dim j As Integer, h As Byte, m As Byte, s As Byte
- Private Sub start_Click()
- Timer1.Interval = 1000 'интервал
- Timer1.Enabled = True 'включение таймера
- End Sub
- Private Sub Timer1_Timer()
- s = Text3 'секунды
- m = Text2 'минуты
- h = Text1 'часы
- If s > 0 Then 'изменение секунд
- s = s - 1
- End If
- If m = 0 And h <> 0 Then 'изменение часов
- m = 59
- s = 59
- h = h - 1
- End If
- If s = 0 And m <> 0 Then 'изменение минут
- s = 59
- m = m - 1
- End If
- Text1 = h 'вывод оставшегося времени
- Text2 = m
- Text3 = s
- If s = 0 Then 'если времени не осталось завершить
- MsgBox ("ТАЙМЕР!!!!")
- Timer1.Enabled = False
- End If
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д