|
|
Postada em 26/07/2007 22:45 hs
Oi galera! Gostaria de saber como faço para que um Form expire o seu tempo de execução após 5 minutos de inatividade e chame o Form "login" novamente. Valeu gente. |
|
|
|
|
|
|
|
Postada em 27/07/2007 00:26 hs
Use um Timer, usando uma variavel contadora, voce pode usar o tempo que quiser. vlu// |
|
|
|
|
|
Postada em 27/07/2007 18:35 hs
Um Timer suporta apenas à 65535 ms (Milessegundos)
Isto significa aproximadamente a 1 minuto e alguns segundos.
Caso você queria que expire após 5 minutos você pode fazer o seguinte:
'No General Declaration declare:
Dim contar as Integer
'No Form_Load():
Private Sub Form_Load()
Contar = 1
Timer1.Interval = 60000
Timer1.Enabled = True End Sub
'No Timer1_Timer():
Private Sub Timer1_Timer()
If contar = 5 Then
Unload me
Frm_login.Show 'Substitua pelo o nome de seu Form de Login
Else
contar = contar + 1
End If End Sub
Abraços,
Qualquer coisa é só postar!
______________________________
Resolveu ? Tópico Trancado!
|
|
TÓPICO EDITADO
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 27/07/2007 21:17 hs
Incrivel o que a gente aprende nesse forum! a dica do colega acima é simples porém muitisso util, para quem gosta de programas inteligentes, então só para completar e deixar, acredito eu, do jeito que vc deseja inclua as seguintes funções nesta dica para que ela funcione da seguinte maneira, enquanto você estiver movendo o mouse ou digitando algo o timer vai resetar, então quando vc não estiver fazendo mais nada nele a contagem continua até o tempo estipulado, ou seja se após 14 minutos você voltar ao programa o timer dara um reset, caso contrario ele te mandará para tela de login,tipo proteção de tela , legal né. eis os códigos: 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 pronto agora sim está do jeito que vc deseja, legal né |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 28/07/2007 09:03 hs
Este forum é interessante, passei a dica, ai o MsMarcus, mastigou e entregou prontinha, depois vem o Treze e passa uma coisa tão simples e utilissima, principalmente para mim, obrigado. É isto amigos, sempre aprendemos, sem egoísmos. vlu// |
|
|
|
|
