Блокировка приложения при его неактивности - 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

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

15 голосов , оценка 3.867 из 5

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

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

Похожие ответы