|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Forms/MDI)
|
|
 |
Título da Dica: Tempo de vida do FORM estilo proteção de tela
|
 |
|
|
|
Postada em 27/12/2007 por Treze
' este código funciona da seguinte maneira após 5 minutos de inatividade
' em seu programa a tela de LOGIN aparece, e se você voltar a usar o PC
' antes de sse tempo nada acontece, estilo proteção de tela do windows
' quando o computador está ativo
no form insira o seguinte código
Dim contar as Integer
Private Sub Form_Load()
Contar = 1
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If contar = 5 Then ' o cinco indica o tempo de inatividade para chamar o login
Unload me
Frm_login.Show ' Substitua pelo o nome de seu Form de Login
Else
contar = contar + 1
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
contar = 1
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
contar = 1
End Sub
|
|
|
|
|
