COMBPBOX NÃO ACEITA O ENTER
Boa tarde pessoal.
Estou montando um combo com placas de veÃculos e carregando com uma tabela.
Tenho umas dúvidas:
1ª - preciso digitar as 3 primeiras teclas e só aceitar letra (maiúscula) e as outras 4 somente números.
tenho este código para maiúsculo:
Me.cboPlaca.Text = Me.cboPlaca.Text.ToUpper()
cboPlaca.Select(cboPlaca.Text.Length, 0)
Até que a maiúscula funciona, só que permite digitar mais letras .
2ª - quanto dou o enter ele apaga o que digitei.
Estou montando um combo com placas de veÃculos e carregando com uma tabela.
Tenho umas dúvidas:
1ª - preciso digitar as 3 primeiras teclas e só aceitar letra (maiúscula) e as outras 4 somente números.
tenho este código para maiúsculo:
Me.cboPlaca.Text = Me.cboPlaca.Text.ToUpper()
cboPlaca.Select(cboPlaca.Text.Length, 0)
Até que a maiúscula funciona, só que permite digitar mais letras .
2ª - quanto dou o enter ele apaga o que digitei.
[ô]NO MODULO
[ô]Só Aceitar esses Numeros (1a0 e -)
Function SoNumerosB(ByVal Keyascii As Short) As Short
If InStr([Ô]1234567890-[Ô], Chr(Keyascii)) = 0 Then
SoNumerosB = 0
Else
SoNumerosB = Keyascii
End If
Select Case Keyascii
Case 8
SoNumerosB = Keyascii
Case 13
SoNumerosB = Keyascii
Case 32
SoNumerosB = Keyascii
End Select
End Function
[ô]NO FORM ASSIM
[ô]Número da Placa
Private Sub txtPlaca_TextChanged(sender As Object, e As EventArgs) Handles txtPlaca.TextChanged
If Len(txtPlaca.Text) = 3 Then
txtPlaca.Text = (txtPlaca.Text + [Ô]-[Ô])
Me.txtPlaca.SelectionStart = Me.txtPlaca.Text.Length
End If
Dim hasChanges As Boolean = False
If txtPlaca.Text <> [Ô][Ô] Then
FltrarPlaca() [ô] AQUI VC PODE FAZER UM BUSCA NA TABELA DE CADASTRO
Else
LimparForms()
txtPlaca.Focus()
hasChanges = True
End If
End Sub
Private Sub txtPlaca_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPlaca.KeyPress
Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
If Len(txtPlaca.Text) < 3 Then
KeyAscii = CShort(SoLetras(KeyAscii))
If Char.IsNumber(e.KeyChar) Then
e.Handled = True
End If
Else
If Len(txtPlaca.Text) > 3 Then
KeyAscii = CShort(SoNumerosB(KeyAscii))
If KeyAscii = 0 Then [ô]Só Números e Traço
e.Handled = True
End If
End If
If e.KeyChar = ChrW(Keys.Enter) Then
TextBox2.Focus() [ô]Coloca o Foco no Proximo
e.Handled = True
End If
End If
End Sub
Boa tarde,
Muito obrigado Nilton.
isto que precisava.
Muito obrigado Nilton.
isto que precisava.
Tópico encerrado , respostas não são mais permitidas