USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  if keypress then....
Leon@rdo
PORTO ALEGRE
RS - BRASIL
Postada em 02/06/2004 15:03 hs            
tenho um form que inicia com um timer que o desliga apos um tempo...
 
quando pressiono qualquer tecla dentro de uma text este timer para.....
 
porém quero dar um tempo entre uma digitação e outra, tipo o cara digita um letra e para durante 20 segundos. Ele recebe um aviso e o timer liga novamente ...
Não estou conseguindo fazer isto como faço... peço uma luz!!!
     
Roßerto
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 02/06/2004 15:23 hs            
no evento keydown do textbox  vc coloca TIMER1.ENABLE = FALSE

Roberto

     
Semmer
CURITIBA
PR - BRASIL
Postada em 02/06/2004 15:32 hs            
Na propriedade KeyPreview do form coloque True, na propriedade Interval do timer coloque 1000 (um segundo)
Coloque os eventos e códigos abaixo:
Public Tempo As Date
Private Sub Form_KeyPress(KeyAscii As Integer)
   Tempo = Now
End Sub
Private Sub Form_Load()
   Tempo = Now
End Sub
Private Sub Timer1_Timer()
   Dim Tempo2, t1, t2
   Tempo2 = Now
   t1 = Hour(Tempo2) * 10000 + Minute(Tempo2) * 100 + Second(Tempo2)
   t2 = Hour(Tempo) * 10000 + Minute(Tempo) * 100 + Second(Tempo)
   If (t1 - t2) > 20 Then
 'aqui só entra quando ficar 20 segundos sem digitar nada
 'põe aqui o código que preferir, msgbox, unload, ...
   End If
End Sub
...testa aí...
     
Leon@rdo
PORTO ALEGRE
RS - BRASIL
Postada em 02/06/2004 16:16 hs            
Valeu pessoal!!!!
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página