Ir para o conteúdo
programadorvb6

Auto formatação de Nomes.

Mensagens Recomendadas

programadorvb6    1
programadorvb6

1. Abrir 1 formulário.

2. Adicionar uma TextBox.

Codigo :

Private Sub Text1_Change()
    Text1.Text = Replace(Text1.Text, " E", " e", , , vbTextCompare)
    Text1.Text = Replace(Text1.Text, "De", "de", , , vbTextCompare)
    Text1.Text = Replace(Text1.Text, "Do", "do", , , vbTextCompare)
    Text1.Text = Replace(Text1.Text, "Dos", "dos", , , vbTextCompare)
    
    Text1.SelStart = Len(Text1.Text) + 1
    Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim vPos As Long
    
    vPos = Text1.SelStart
    If KeyAscii >= 97 And KeyAscii <= 122 Then
        If vPos = 0 Then
            KeyAscii = KeyAscii - 32
        ElseIf Mid(Text1.Text, vPos, 1) = " " Then
            
            KeyAscii = KeyAscii - 32
            
        End If
    End If
End Sub

Ao escreverem na caixa de texto a mesma irá formatar o nome automáticamente.

Até+ :bye2:

Programadorvb6

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade