Как сделать всплывающее окно над всеми другими окнами - VB

Узнай цену своей работы

Формулировка задачи:

написал простенькую программу - таймер:
Листинг программы
  1. Private Sub start_Click()
  2. Dim j As Integer, h As Byte, m As Byte, s As Byte
  3. Timer1.Interval = 1000 'интервал
  4. Timer1.Enabled = True 'включение таймера
  5. End Sub
  6. Private Sub Timer1_Timer()
  7. s = Text3 'секунды
  8. m = Text2 'минуты
  9. h = Text1 'часы
  10. If s > 0 Then 'изменение секунд
  11. s = s - 1
  12. End If
  13. If m = 0 And h <> 0 Then 'изменение часов
  14. m = 59
  15. s = 59
  16. c = c - 1
  17. End If
  18. If s = 0 And m <> 0 Then 'изменение минут
  19. s = 59
  20. m = m - 1
  21. End If
  22. Text1 = h 'вывод оставшегося времени
  23. Text2 = m
  24. Text3 = s
  25. If s = 0 Then 'если времени не осталось завершить
  26. MsgBox ("ТАЙМЕР!!!!")
  27. Timer1.Enabled = False
  28. End If
  29. End Sub
как мне сделать так, чтобы MsgBox всплывало поверх остальных окон. если MsgBox для таких целей не подходит то подскажите, что использовать. заранее спасибо) P.S. я использовал оптимальный вариант подобной программы или можно было написать как то проще?)

Решение задачи: «Как сделать всплывающее окно над всеми другими окнами»

textual
Листинг программы
  1. Option Explicit
  2. Dim j As Integer, h As Byte, m As Byte, s As Byte
  3. Private Sub start_Click()
  4.  
  5.  Timer1.Interval = 1000 'интервал
  6. Timer1.Enabled = True 'включение таймера
  7. End Sub
  8. Private Sub Timer1_Timer()
  9. s = Text3 'секунды
  10. m = Text2 'минуты
  11. h = Text1 'часы
  12. If s > 0 Then 'изменение секунд
  13. s = s - 1
  14. End If
  15. If m = 0 And h <> 0 Then 'изменение часов
  16. m = 59
  17. s = 59
  18. h = h - 1
  19. End If
  20. If s = 0 And m <> 0 Then 'изменение минут
  21. s = 59
  22. m = m - 1
  23. End If
  24. Text1 = h 'вывод оставшегося времени
  25. Text2 = m
  26. Text3 = s
  27. If s = 0 Then 'если времени не осталось завершить
  28. MsgBox ("ТАЙМЕР!!!!")
  29. Timer1.Enabled = False
  30. End If
  31. End Sub

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


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

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

6   голосов , оценка 4.667 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы