Visual Basic 6 - Help Archivio

ciao, sto realizzando un gestionale con le seguenti caratteristiche e vorrei cortesemente un consiglio:

ho un text e due combo

con il text, inserisco i dati nei rispettivi combo.

la mia domanda é: una volta che inserisco:

combo1 = "ciao"
combo2 = "ciao2"

e altri valori, ovviamente diversi da questi. In che modo riesco a:

caricare per il rispettivo dato, "ciao" nel combo1, il rispettivo "ciao2" nel combo2?

grazie.. e così via?

n.b. ovviamente i dati, dovrei salvarli in un txt. Ovviamente sono a cavallo, ma non vorrei avere difficoltà con il caricamento!

forse se ti spighi meglio posso aiutarti...
se ho capito bene metti 2 dati(divisi da uno spazio) nella textbox che poi dovranno essere separati e inseriti nelle combo. giusto?

ho due combobox e un text

attraverso il text inserisco nel combobox, diversi valori. Questi valori, vengono archiviati e salvati. Li salvo attraverso un file di testo, per poi caricarli.

esempio:

combo1, inserisco "ciao"
combo2, inserisco "ciao2"

combo1, inserisco "te"
combo2, inserisco "iote"

ora:

in che modo, potrei cliccando sul combo1 e quindi selezionando "ciao", far apparire di conseguenza nel combo2 "ciao2"

etc..

prova cosi...
private sub combo1_click()
combo2.listindex=combo1.listindex
end sub

si ho provato funge

prova cosi...
private sub combo1_click()
combo2.listindex=combo1.listindex
end sub

si ho provato funge

Allora...

Salverai sul file di testo seguendo questo tracciato record:

Private Type Rec
cmb1 as string * 200
cmb2 as string *200
End Type

per salvare fai un ciclo for secondo la il ListCount delle combo aprendo il file così:

dim Buffer as Rec

Open "C:\f.txt" For Random as #1 Len=Len(Buffer)

for i=1 to Combo1.ListCount
'se devi fare append ricordati di fare una seek
'seek(LOF(1)) credo sia cosi adx nn ho vb
' sottomano
Buffer.cmb1=.....contenuto combo1 all'indice (i)
Buffer.cmb2=.....contenuto combo2 all'indice (i)
Put #1,,Buffer
next i

close #1

Per la ricerca....

Open "C:\f.txt" For Random as #1 Len=Len(Buffer)

get #1,,Buffer

while not eof(1)
if Buffer.cmb1=Combo1.text then
'trovato
combo2.text=Buffer.cmb2
goto fine
endif
get #1,,Buffer
wend

:fine

close #1

ORO!!!
Credo che così ti possa bastare almeno spero di nn aver sbagliato anche se dubito

provo e vi aggiorno.

Grazie..