|
|
|
|
|
|
|
|
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//
|
|
|
|
|
