Listbox durchsuchen

Lodas

Grünschnabel
Guten Abend zusammen,
ich bin gerade dabei eine kleine Datenbank zu schreiben und nun hab ich Probleme damit einen Eintrag zu suchen. Ich habe die Daten zeilenweise abgespeichert und nun würde ich gerne einen Suchbegriff eingeben und das Ergebnis soll in einer Picturebox ausgeben werden. Ich gebe pro Zeile drei verschiedene Dinge ein. Ich will aber nur eines der drei Wörter in die Textbox zum Suchen eingeben müssen. Das Programm soll mir aber die ganze Reihe ausgeben. Eigentlich muss ich ja nur die Listbox durchsuchen und nicht meine Datei mit den gespeicherten Daten, oder?
Bis jetzt sieht mein Prozedurcode so aus :

Private Sub Command1_Click()
Dim search As String, i as integer
Picture1.Cls
search = text1.Text
For i = 0 To List1.ListCount - 1
If InStr(list1.List(i), search) <> 0 Then
Picture1.Print search
End If
Next i
End Sub

Dieser Code gibt mir aber immer nur genau das aus, was ich als Suchbegriff eingegeben habe. Ich will aber das der Code die ganze Zeile ausgibt.
Geht das überhaupt so einfach?
Kann mir da jemand einen Tipp geben oder einen Link posten? ICh suche schon eine ganze Weile rum, aber bis jetzt war ich erfolglos.
Hoffentlich kann mir jemand helfen.

Gruß Loda
 
Hy!

Code:
Label1.Caption = List1.List(3)
Hiermit gibst du die gesamte Zeile 4 aus.

Du musst die 3 einfach durch deine Variable "i" ersetzen


Das war's doch, was du möchtest, oder?
 
Hallo daDom,
na das war ja gar nicht so kompliziert :)
Vielen Dank für deine schnelle Hilfe, du hast mir sehr weitergeholfen.
Einen schönen Tag noch.
Gruß Loda
 

Neue Beiträge

Zurück