Vídeo recomendado
https://youtu.be/diWPPPhW-9E

TextBox Só Com Determinado Formato - [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pedrobb
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Jul 25, 2012 12:42 pm
Localização: Montes Claros-MG

TextBox Só Com Determinado Formato - [RESOLVIDO]

Mensagem por pedrobb »

Pessoal,
Preciso que uma TextBox permita apenas digitação com Valores tipo VALE3, ou seja, letras nos 4 primeiros caracteres, e Número no 5º e último caracter.

Grato,
Pedro


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


pedrobb
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Jul 25, 2012 12:42 pm
Localização: Montes Claros-MG

Re: TextBox Só Com Determinado Formato

Mensagem por pedrobb »

Resolvido pelo Sensacional osvaldomp:

Código: Selecionar todos

Private Sub TextBox1_Change()
If TextBox1.Text = "" Then Exit Sub
If Len(TextBox1.Text) <= 4 Then
If Not Right(TextBox1.Text, 1) Like "[a-zA-Z]" Then 'aceita letras minúsculas e maiúsculas
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
ElseIf Len(TextBox1.Text) = 5 Then
If Not Right(TextBox1.Text, 1) Like "[0-9]" Then
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
Else: TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
End Sub
"[A-Z]" ~~~> aceita somente maiúsculas


Responder