Postada em 16/02/2010 15:00 hs
Olá Galera...
Estou iniciando com VB e por isso estou com algumas dúvidas. Preciso formatar um text com a placa de um veiculo, porem passei a noite toda ontem tentando em nao deu certo.
Segue o código para análise...
If tplaca.Text = "" Then
Exit Sub
Else
If IsNumeric(Left(tplaca.Text, 3)) = True Then
MsgBox "A Placa Esta INCORRETA, VERIFIQUE!", vbCritical, "SoftTrans"
Else
If IsNumeric(Right(tplaca.Text, 4)) = True Then
tplaca.Text = Format(tplaca.Text, "###-####")
Else
MsgBox "A Placa Esta INCORRETA, VERIFIQUE!", vbCritical, "SoftTrans"
End If
End If
End If
ja tentei usar a funçao Len, mas tbm nao deu certo...
Desde já agradeço.
|
