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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Apagar todo Text com a primeira tecla digitada
Postada em 25/4/2006 por LCRamos            
Se voce quiser aproveitar textos digitados em uma caixa de texto, ótimo para o usário, mas se ele vai digitar um texto diferente, reclama que tem que apagar tudo.
Então que tal apagar todo o texto com a primeira tecla digitada.

nomeie uma variavel integer

Dim iTECLA As Integer

Private Sub text1_GotFocus
iTECLA=0
'   se quiser pode destacar o Text aqui, com cores diferente
End Sub

No evento KeyPress do Text

Private Sub Text1_KeyPress(TK as integer)
If TK <> 8 and TK <> 13 and TK <> 32 Then  ' se não for BackSpace Enter Espaço
     If iTECLA = 0     '  verifica se é a primeira tecla digitada no Text
       Text1.text = ""   ' limpa a text
     End If
End If
iTECLA =1      ' incrementa a variável e não limpa mais a text na 2ª tecla
End Sub


vlu//
  
  
 


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