|
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Const MAXLENGTH = 10 If Len(Combo1.Text) >= MAXLENGTH And KeyAscii <> vbKeyBack Then KeyAscii = 0 End Sub La combobox non ha la proprieta' MaxLenght come una textbox. E' possibile emulare questa proprieta' inserendo il codice nell'evento keypress della combobox: |