Visual Basic 6 - Help Archivio

Forum - Visual Basic 6 - Help Archivio

()
Newbie

Messaggi:
Iscritto:

Postato alle 1:00
Giovedì, 01/01/1970

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!

Ultima modifica effettuata da il 10/07/2007 alle 10:26

AntoMEtal (Normal User)
Rookie

Messaggi: 22
Iscritto: 04/07/2007

Postato alle 13:10
Martedì, 10/07/2007

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?

()
Newbie

Messaggi:
Iscritto:

Postato alle 13:16
Martedì, 10/07/2007

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..

AntoMEtal (Normal User)
Rookie

Messaggi: 22
Iscritto: 04/07/2007

Postato alle 13:24
Martedì, 10/07/2007

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

si ho provato funge

AntoMEtal (Normal User)
Rookie

Messaggi: 22
Iscritto: 04/07/2007

Postato alle 13:29
Martedì, 10/07/2007

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

si ho provato funge

Karl (Member)
Pro

Messaggi: 70
Iscritto: 31/12/2006

Postato alle 15:01
Martedì, 10/07/2007

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!!!
:k:

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

Ultima modifica effettuata da Karl il 10/07/2007 alle 15:03

()
Newbie

Messaggi:
Iscritto:

Postato alle 17:25
Martedì, 10/07/2007

provo e vi aggiorno.

Grazie..