[VB6] Limitare il numero caratteri in un controllo ComboBox

[software83]

Buongiorno a tutti,

Nel mio programma in Vb6, avrei bisogno di limitare un numero massimo di caratteri ad una ComboBox.

Nella TextBox esiste la proprietà MaxtLenght, esiste una proprietà che abbia la stessa funzione di MaxtLenght per la ComboBox ?

In attesa di una Vostra gentile risposta, Vi porgo distinti saluti.

Grazie.

software83.

[x69asterix]

puoi fare

Private Sub Combo1_Change()
If Len(Combo1.Text) >= "4" Then MsgBox "Fai qualcosa"
End Sub

[x69asterix]

o

Private Sub Combo1_Change()
If Len(Combo1.Text) >= "5" Then
MsgBox "Fai qualcosa"
Combo1.Text = Mid(Combo1.Text, 1, 4)
End If
End Sub

[software83]

Grazie, l'istruzione va bene, ma c'è un modo per bloccare il cursore alla fine della parola ?

Cioè se ho massimo 4 caratteri, c'è un modo per bloccare il cursore dopo il quarto carattere e non farlo andare più avanti ?

Grazie ancora.

[nanu_90]

prova così:

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If Len(Combo1.Text) < 4 Then Exit Sub
If KeyAscii = 8 Then Exit Sub
KeyAscii = 0
Beep
End Sub

[software83]

! Grazie Mille, l'istruzione funziona correttamente !