03/03/11 20:45
00bullo00
Allora, ti posso aiutare ma fammi capire una cosa, cosa centra il componente WebBrowser (credo che stai parlando del componente del Vb6 che permette di visualizzare pagine web)?
Comunque se ho capito bene il problema tu vorresti far apparire sul textbox 2 telefono, indirizzo e intestatario dopo aver inserito il telefono stesso nel textbox1?
Il modo che mi viene in mente più conveniente è il sistema dei vettori paralleli. In pratica tu dichiari tre vettori: Telefono come stringa, Indirizzo come Stringa e Intestatario come Stringa.
Ebbene, memorizzi tutti i dati in questi vettori in modo che, a parità di indice, ci sono dati dello stesso "proprietario".
Ad esempio, se devi registrare il numero di telefono 06/******* che è il telefono dell'indirizzo Via Inesistente 37 dell'intestatario Mario Rossi tu registrerai i dati così:
Telefono(1)=06/*******
Indirizzo(1)=Via Inesistente 37
Intestatario(1)=Mario Rossi
Quindi poi per la ricerca, basterà il seguente codice:
L'unico bug di questo codice è che nell'elenco ci sono due numeri di telefono uguali stampa solo i dati dell'ultimo numero telefonico.
Spero di essermi spiegato bene, per qualunque chiarimento sul codice chiedi pure
Comunque se ho capito bene il problema tu vorresti far apparire sul textbox 2 telefono, indirizzo e intestatario dopo aver inserito il telefono stesso nel textbox1?
Il modo che mi viene in mente più conveniente è il sistema dei vettori paralleli. In pratica tu dichiari tre vettori: Telefono come stringa, Indirizzo come Stringa e Intestatario come Stringa.
Ebbene, memorizzi tutti i dati in questi vettori in modo che, a parità di indice, ci sono dati dello stesso "proprietario".
Ad esempio, se devi registrare il numero di telefono 06/******* che è il telefono dell'indirizzo Via Inesistente 37 dell'intestatario Mario Rossi tu registrerai i dati così:
Telefono(1)=06/*******
Indirizzo(1)=Via Inesistente 37
Intestatario(1)=Mario Rossi
Quindi poi per la ricerca, basterà il seguente codice:
Private Sub CommonButton1_Click() For i=1 to Ubound(Telefono) If Telefono(i)=textbox1 then Textbox2=Telefono(i)+Indirizzo(i)+Intestatario(i) End If Next i End Sub
L'unico bug di questo codice è che nell'elenco ci sono due numeri di telefono uguali stampa solo i dati dell'ultimo numero telefonico.
Spero di essermi spiegato bene, per qualunque chiarimento sul codice chiedi pure
aaa