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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Entrada de Dados Textbox sem acento
wagner.mesquita
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
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,
   
Fabio Rocha
SÃO PAULO
SP - BRASIL
ENUNCIADA !
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.
   
wagner.mesquita
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
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>
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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