Edson_vb6
|
SÃO JOÃO DEL REI
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 15/04/2008 09:31 hs
Bom dia!
Tenho um caixa de texto em um form e coloquei um código para que possa ser inserido apenas caracteres de texto e não números.
Acontece que quando tento acentuar as palavras ele não aceita.
Será que tenho que liberar acento por acento?
O código é esse:
Private Sub txtNome_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeyDelete
Case vbKeyBack
Case vbKeySpace
Case 65 To 90
Case 97 To 122
Case Else
Beep
KeyAscii = 0
End Select
End Sub
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/04/2008 10:23 hs
Não colega muda a função que você inseriu para aceitar só letras por essa, que apenas não permite numeros: Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
KeyAscii = 0 End If
End Sub
|
|
|
|
|
|
Postada em 15/04/2008 11:00 hs
Valeu treze!
Obrigado!
|
|
|
|
