FOMULARIO INOPERANTE

DIONISIO 28/05/2012 13:53:38
#402976
BOA TARDE PARA TODOS, EXISTE ALGUM COMANDO OU UMA FORMA DE FECHAR UM FORMULARIO QUANDO ELE FICAR INOPERANTE, QUER DIZER O USUARIO PARA DE INCLUI QUAL QUER COISA FICOU O FORMULARIO LA NA TELA CONTAR O TEMPO INOPERANTE DELE, ALGUEM PODE ME AJUDAR
NAUTILUZ 28/11/2012 10:20:50
#414934
E facil use um timer para contar o tempo e a propriedade forme.focus para zerar o contador quando o programa volta..

Sub Timer()
contador = contador + 1
if contador = 60 then end
end sub

Private Sub form_focus()
contador = 0
end sub
MARCELO.TREZE 28/11/2012 10:55:59
#414943 Resposta escolhida
é quase isso que o nautiluz colocou, porém se fizer da forma acima o formulário vai fechar apos o tempo especifico, ou seja independente de você estar fazendo algo ou não no formulário, enão é isso o que você quer, você quer que o formulário feche apos certo tempo de inatividade tipo proteção de tela, então é desta forma

no form insira o seguinte código

Dim contar as Integer [txt-color=#007100][ô] Declarado no general do form[/txt-color]


Private Sub Form_Load()
Contar = 1
Timer1.Interval = 60000 [txt-color=#007100][ô] equivale a um minuto[/txt-color]
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
If contar = 5 Then [txt-color=#007100][ô] o cinco indica o tempo em minutos de inatividade para fechar o form[/txt-color]
Unload me
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
Tópico encerrado , respostas não são mais permitidas
Voltar