PLACA DE VEICULO
Bom dia. Tenho que fazer uma formatação de placa de veiculo em um textbox. Alguém poderia me ajudar. Não quero usar textbox.ma k=[Ô]>???-####[Ô] queria criar uma rotina de formação para usar em um textbox. Obrigada.
Encontrei esse algorÃtimo aqui, mas ele não está perfeito. Qualquer coisa, dê umas fuçadas e tente corrigi-lo.
www.redeaccess.com.br/viewtopic.php?t=319
Qual a necessidade de criar um algorÃtimo em vez de utilizar um já existente? Por que você precisa que seja assim?
www.redeaccess.com.br/viewtopic.php?t=319
Qual a necessidade de criar um algorÃtimo em vez de utilizar um já existente? Por que você precisa que seja assim?
Placa = [Ô]ABC1234[Ô]
txtPlaca.text = strings.left(Placa,3) & [Ô]-[Ô] & strings.right(Placa,4)
Na hora de salvar tira o traço com o replace
Não sei se entendi
é isso que precisa?
Existe umas rotinas para aceitar só letras e só Números
se o caracter é <=3 roda a rotina só aceita letras
se o caracter = 3 concatena um hÃfen
se >=5 só aceita numeros
[txt-color=#0000f0]Precisando de um Sistema de Gestão Educacional?[/txt-color]
Desenvolvido em VB.NET + SQL Server + Crystal Reports
Conheça nossa Solução: www.cjsystem.com.br
txtPlaca.text = strings.left(Placa,3) & [Ô]-[Ô] & strings.right(Placa,4)
Na hora de salvar tira o traço com o replace
Não sei se entendi
é isso que precisa?
Existe umas rotinas para aceitar só letras e só Números
se o caracter é <=3 roda a rotina só aceita letras
se o caracter = 3 concatena um hÃfen
se >=5 só aceita numeros
[txt-color=#0000f0]Precisando de um Sistema de Gestão Educacional?[/txt-color]
Desenvolvido em VB.NET + SQL Server + Crystal Reports
Conheça nossa Solução: www.cjsystem.com.br
Poderia Fazer Assim
Private Function FormatarPlaca(Placa As String) As String
Placa = Placa.ToUpper
Dim St As String = [Ô][Ô]
Dim I As Byte = 0
For Each C As Char In Placa
I += 1
If I <= 3 Then
If Char.IsLetter(C) Then
St += C
Else
Return [Ô][Ô]
End If
Else
If Char.IsDigit(C) Then
St += C
Else
Return [Ô][Ô]
End If
End If
Next
If St.Length <> 7 Then [ô]Não existe a quantidade de caracteres necessários
Return [Ô][Ô]
Else
St = St.Insert(3, [Ô]-[Ô])
Return St
End If
End Function
Private Function FormatarPlaca(Placa As String) As String
Placa = Placa.ToUpper
Dim St As String = [Ô][Ô]
Dim I As Byte = 0
For Each C As Char In Placa
I += 1
If I <= 3 Then
If Char.IsLetter(C) Then
St += C
Else
Return [Ô][Ô]
End If
Else
If Char.IsDigit(C) Then
St += C
Else
Return [Ô][Ô]
End If
End If
Next
If St.Length <> 7 Then [ô]Não existe a quantidade de caracteres necessários
Return [Ô][Ô]
Else
St = St.Insert(3, [Ô]-[Ô])
Return St
End If
End Function
Tópico encerrado , respostas não são mais permitidas