Início![[Resolvido]Acentuar palavras Empty](https://2img.net/i/empty.gif)
Agravina 2/7/2011, 01:41 Ola pessoal,temos algum código que acentue ou as palavras?
3 participantes
[Resolvido]Acentuar palavras
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Você pode criar uma função pública em um módulo para substituir palavras.
Public Function BotaAcento()
Screen.ActiveControl = Replace(Screen.ActiveControl, "habil", "hábil", , , vbBinaryCompare)
Screen.ActiveControl = Replace(Screen.ActiveControl, "Habil", "Hábil", , , vbBinaryCompare)
Screen.ActiveControl = Replace(Screen.ActiveControl, "coracao", "coração", , , vbBinaryCompare)
Screen.ActiveControl = Replace(Screen.ActiveControl, "Coracao", "Coração", , , vbBinaryCompare)
...
End Function
Nos controles:
Call BotaAcento
mas isso vai dar um trabalhão
Public Function BotaAcento()
Screen.ActiveControl = Replace(Screen.ActiveControl, "habil", "hábil", , , vbBinaryCompare)
Screen.ActiveControl = Replace(Screen.ActiveControl, "Habil", "Hábil", , , vbBinaryCompare)
Screen.ActiveControl = Replace(Screen.ActiveControl, "coracao", "coração", , , vbBinaryCompare)
Screen.ActiveControl = Replace(Screen.ActiveControl, "Coracao", "Coração", , , vbBinaryCompare)
...
End Function
Nos controles:
Call BotaAcento
mas isso vai dar um trabalhão
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Teria que por palavra por palavra é isso criquio?
Convidado- Convidado
Agravina ja resolveste a questão do Gestão?
se não, me envie o link do tópico, ñão estou encontrando
Saudações
se não, me envie o link do tópico, ñão estou encontrando
Saudações
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Word after word unless you get any extra element that enable any other feature inside your application 
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Harysonh enviei o link via MP certo!
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Agravina
Resolveu?
Resolveu?
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Certo Vieira!