LETRAS MAIÊSCULAS E SEM ACENTOS NO TEXTBOX
Bom dia pessoal,
preciso de uma ajuda, tenho um textbox e preciso que receba as letras maiúsculas e sem acentos.
conheço o código para as letras maiúsculas mas não junto para tirar os acentos e caracteres especiais.
preciso de uma ajuda, tenho um textbox e preciso que receba as letras maiúsculas e sem acentos.
conheço o código para as letras maiúsculas mas não junto para tirar os acentos e caracteres especiais.
Tem essa funçãozinha aqui. Referente aos caracteres especiais pode inseri-los dentro das duas constantes da função onde estão as vogais.
[ô]=====================================================
Function RemoveAcentos(ByVal texto As String) As String
Dim vPos As Byte
Dim i As Integer
Const vComAcento = [Ô]ÀÃÂÃÄÅÇÈéÊËÌÃÃŽÃÒÓÔÕÖÙÚÛÜà áâãäåçèéêëìÃîïòóôõöùúûü[Ô]
Const vSemAcento = [Ô]AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu[Ô]
For i = 1 To Len(texto)
vPos = InStr(1, vComAcento, Mid(texto, i, 1))
If vPos > 0 Then
Mid(texto, i, 1) = Mid(vSemAcento, vPos, 1)
End If
Next
RemoveAcentos = texto
End Function
[ô]=====================================================
Function RemoveAcentos(ByVal texto As String) As String
Dim vPos As Byte
Dim i As Integer
Const vComAcento = [Ô]ÀÃÂÃÄÅÇÈéÊËÌÃÃŽÃÒÓÔÕÖÙÚÛÜà áâãäåçèéêëìÃîïòóôõöùúûü[Ô]
Const vSemAcento = [Ô]AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu[Ô]
For i = 1 To Len(texto)
vPos = InStr(1, vComAcento, Mid(texto, i, 1))
If vPos > 0 Then
Mid(texto, i, 1) = Mid(vSemAcento, vPos, 1)
End If
Next
RemoveAcentos = texto
End Function
Mas não sendo uma function, quero utilizar no evento keypress.
Citação::
Mas não sendo uma function, quero utilizar no evento keypress.
Simplesmente chame a function de dentro do evento...
Mas isso vai acontecer no momento que eu for digitando dentro do edit?
Isso mesmo
Pode usar dentro da função Change ou mesmo Keypress
No evento Change do Text ficaria assim
text1.text = RemoveAcentos(text1.text)
No evento Keypress
If keyascii=13 then [ô]Enter
[ô]Seu comando
else
text1.text = RemoveAcentos(text1.text)
end if
Ficaria algo assim , agora é adaptar ao que vc precisa
Pode usar dentro da função Change ou mesmo Keypress
No evento Change do Text ficaria assim
text1.text = RemoveAcentos(text1.text)
No evento Keypress
If keyascii=13 then [ô]Enter
[ô]Seu comando
else
text1.text = RemoveAcentos(text1.text)
end if
Ficaria algo assim , agora é adaptar ao que vc precisa
Faça seu login para responder