If Combo1.text = "" Then Exit Sub 'if no text, exit sub If Chr(KeyAscii) = Chr(13) Then 'if you press ENTER then A = Combo1.text 'declare A entry = A 'A will take the place of ENTRY Combo1.AddItem entry 'Add the entry. Combo1.text = "" 'Clear the combo box
End If
Note:
Questo codice va inserito nell'evento Combo1_KeyPress della combobox
Data ultima modifica: 13 novembre 2012
Contatti Fax: 06.233.215.239
E-mail:
Gli articoli, i commenti, le recensioni e i messaggi sono di proprietà dell'autore
dove non diversamente specificato. Il webmaster non si assume alcuna
responsabilità riguardante l'utilizzo improprio del materiale pubblicato.
