|
Private Sub Combo1_KeyPress(KeyAscii As Integer)
'Se si cerca di scrivere l'undicesimo carattere e... 'questo carattere non e' il carattere Backspace, 'cancella l'evento! Const MAXLENGTH = 10 If Len(Combo1.Text) >= MAXLENGTH And KeyAscii <> vbKeyBack Then KeyAscii = 0 End Sub Un controllo ComboBox non ha una proprieta' di massima lunghezza come invece ha un controllo TextBox. Tuttavia, e' possibile aggiungere del codice per emulare questa proprieta'. Aggiungete il seguente codice all'evento KeyPress della vostra ComboBox: Potete cambiare il valore di MaxLength (lunghezza massima) in qualsiasi numero volete. Come potete vedere, il codice permette all'utente di usare il carattere [Backspace]; potete abilitarne altri semplicemente aggiungendo il loro valore KeyAscii nel modo in cui abbiamo fatto con [Backspace]. |