[VB6] Effettuare una ricerca in una ListBox

[x69asterix]

ciao,
come si effettua una ricerca all' interno di una ListBox??
praticamente, digitando in un textbox, devo verificare se nel listbox il testo è presente.

[ans]

devi usare l'api SendMessage, altrimenti devi ciclare e verificare i singoli elementi.

[ans]

sono buono...

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'Costanti per uso con SendMessage per la gestione delle listbox
Public Const LB_FINDSTRINGEXACT = &H1A2
Public Const LB_FINDSTRING = &H18F

la prima costante è x la ricerca della stringa esatta

posizione = SendMessage(listbox.hWnd, LB_FINDSTRINGEXACT, 0&, ByVal cosaCercare)

listbox metti il nome della tua listbox. Se ritorna -1 non ha trovato nulla.

[x69asterix]

Originariamente inviato da ans
sono buono...

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'Costanti per uso con SendMessage per la gestione delle listbox
Public Const LB_FINDSTRINGEXACT = &H1A2
Public Const LB_FINDSTRING = &H18F

la prima costante è x la ricerca della stringa esatta

posizione = SendMessage(listbox.hWnd, LB_FINDSTRINGEXACT, 0&, ByVal cosaCercare)

listbox metti il nome della tua listbox. Se ritorna -1 non ha trovato nulla.

ok proverò questo suggerimento, + tardi ti faccio sapere.
ciao

[x69asterix]

Originariamente inviato da ans
devi usare l'api SendMessage, altrimenti devi ciclare e verificare i singoli elementi.

se invece volessi ciclare come dovrei fare?

[oregon]

Imposta un ciclo for .. next da 0 a (ListCount-1).

I singoli elementi sono in List(i) in cui i e' la variabile di controllo del ciclo.

[ans]

se gli elementi sono pochi puo' andare bene ciclare, altrimenti impiega parecchio tempo come soluzione.

[x69asterix]

Originariamente inviato da oregon
Imposta un ciclo for .. next da 0 a (ListCount-1).

I singoli elementi sono in List(i) in cui i e' la variabile di controllo del ciclo.

Allora se volessi provare a ciclare:
premetto che la list1 la popolo in questo modo:
Dim i
chiaramente la list la popolo da un bottone.
Open App.Path & "\Elenco.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close #1

bene adesso io digito sun textbox se il testo digitato non risulta in elenco, apro il file e lo aggiungo in:
Open App.Path & "\Elenco.txt" For Append As #1
Print #1, Text11.Text
Close#1
Il problema stà nel verificare se è presente, come lo imposto il ciclo di verifica?

[oregon]

Perche' riproponi la stessa domanda?

Ti ho risposto in precedenza.