• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

programadorvb6

Auto formatação de Nomes.

1 mensagem neste tópico

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

0

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