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