|
|
Postada em 10/10/2004 23:44 hs
Galera, Como é que faço para digitar um dado no textbox, sem acento e com letras maiusculas. Abraços
wagner mesquita
|
|
|
|
|
|
P. & C.
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 11/10/2004 10:12 hs
vamos dizer que o nome do textbox seja Text1: 'pra transformar tudo em maiúsculo: Text1.Text = UCase$(Text1.Text) 'pra remover os acentos agudo e circunflexo das vogais: 'usar o Replace. 'sintaxe : string = Replace(letra,substituicao) Text1.Text = Replace("Á", "A") Text1.Text = Replace("É", "E") Text1.Text = Replace("Í", "I") Text1.Text = Replace("Ó", "O") Text1.Text = Replace("Ú", "U") Text1.Text = Replace("Â", "A") Text1.Text = Replace("Ê", "E") Text1.Text = Replace("Î", "I") Text1.Text = Replace("Ô", "O") Text1.Text = Replace("Û", "U") talvez essa dica possa ajudar. au revoir, |
|
|
|
|
|
Postada em 11/10/2004 16:01 hs
Voce pode criar um componente através do USER CONTROL e especificar um código que iniba a inserção de acentos no evento KeyPress. Para letras maiusculas voce pode criar um código no evento Validating que transforme os caracteres do TextBox em maiusculo. |
|
|
|
|
|
Postada em 12/10/2004 01:49 hs
valeu pessoal pela dica abraços
wagner mesquita
|
|
|
|
UGS
|
SÃO CARLOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/10/2004 20:40 hs
Oi tudo bom, vc tambem pode fazer desse jeito que acho bem menos trabalhoso: 1º Ativar propriedade do Form Keypreview = true 2º no Form_KeyPress faça: isso tb já faz o enter nas propriedade keyascii = 13 Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then SendKeys "{Tab}"
End Sub
|
|
|
|
t
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 20/02/2008 09:34 hs
<table> <tr> <td> oi </td> </tr> </table> |
|
|
|
