Блокировка приложения при его неактивности - VB
Формулировка задачи:
Здравствуйте Ребята, как начинающий, постараюсь задать вопрос коректно, я хотел бы реализовать такой момент в своей программе: при простое-(бездействия) приложения, через н-ое время загружатся форма. как это можно сделать?
Заранее благодарен!
Решение задачи: «Блокировка приложения при его неактивности»
textual
Листинг программы
' на форме Label1 и Timer1 интервал 1000 Option Explicit Private Declare Function GetTickCount Lib "kernel32" () As Long Private Declare Function GetLastInputInfo Lib "user32" (plii As Any) As Long Private Type LASTINPUTINFO cbSize As Long dwTime As Long End Type Private Sub Timer1_Timer() Dim lii As LASTINPUTINFO lii.cbSize = Len(lii) Call GetLastInputInfo(lii) With Label1 .Caption = FormatNumber((GetTickCount() - lii.dwTime) / 1000, 0) .Refresh End With If Label1.Caption = "5" Then ' Если 5 секунд ни кто не действует MsgBox "Привет! Вместо этого собщения можно показать форму! " End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д