storico combo box

[neo571]

Sto usando una compobox editabile dall'utente, per inserire testo, come in una textbox, vorrei inserire nella combo lo storico comandi di immissione dell'utente ....

in pratica ho inseerito la combo al posto della textbox propio per permettere all'utente aprendo la combo di ritrovare i comandi precedentemente digitati ...

come posso salvare la cronologia e farli visualizzare nella combo?

[fsurfing]

i vari comandi li puoi aggiungere con

combobox1.add(testo da aggingere)

per salvarli in un file:

 File.save(percorsodelfile, ComboBox1.List)

[neo571]

ok, cosi funziona, però devo impostare io i comandi per l'utente, io invece vorrei che la combo box tenesse la cronologia dei comandi digitati dall'utente, cosichè se durante una sessione di lavoro dovesse ridigitare lo stesso comando lo possa trovare nella combo ...

[fsurfing]

ma l' utente dove li digita i comandi?
se vengono digitati all' interno del tuo programma il comando .add() è l' ideale

[neo571]

L'utente digita i comandi nel mio programma, nella combobox stessa,

combobox1.add(testo da aggingere)

invece di "testo da aggingere" dovrei far memorizzare in automatico i comandi che lui stesso ha digitato in precedenza, e che quindi io non posso prevedere ....

è possibile farlo?

[fsurfing]

capito!

penso sia possibile.


se dopo aver inserito il comando nel combo per eseguirlo si deve premere un tasto

nell' evento di tale pressione puoi inserire:

ComboBox1.add(ComboBox1.text)

se non vuoi che venga scritto più di una volta lo stesso comando ovrai scrivere qualcosa del genere

Codice: [Seleziona]

DIM comando_nuovo AS String
DIM indice AS Integer
DIM i AS Integer

 comando_nuovo = ComboBox1.Text
FOR i = 0 TO ComboBox1.Count - 1
 
  IF ComboBox1.List[i] = comando_nuovo THEN indice = 1

NEXT 

IF indice = 0 THEN ComboBox1.Add(comando_nuovo)

   

[neo571]

Ok, cosi funziona, Grazie mille.

un'altra domanda come faccio a fare prendere il comando anche quando batte invio sulla combobox ...

Ho provato con l'evento :

ComboBox1_Enter()

ma non funziona bene, fa partire in continuazione comandi ...

Hai un evento da suggerirmi?

Grazie ancora ..

[fsurfing]

così in teoria dovrebbe funzionare:

Codice: [Seleziona]

PUBLIC SUB ComboBox1_KeyPress()

DIM comando_nuovo AS String
DIM indice AS Integer
DIM i AS Integer

  IF Key.Code = Key.Enter THEN 
              comando_nuovo = ComboBox1.Text
        FOR i = 0 TO ComboBox1.Count - 1
         
          IF ComboBox1.List[i] = comando_nuovo THEN indice = 1
        
        NEXT 
        
        IF indice = 0 THEN ComboBox1.Add(comando_nuovo)
   ENDIF 

END

 

ho provato ma ha me funziona solo con il tasto enter del tastierino numerico
prova tu

[neo571]

Grazie mille, si in effetti funziona solo con l' ENTER del tastierino numerico ma va benisso ugualmente !!!

[fsurfing]

di nulla! figurati

in effetti non capisco perchè funzioni solo con il tast numerico!

Forse per una volta tanto mi rendo utile anche io =)

Prova con EVENTO_Activate