Searching a listbox

[mbaker33]

I am writing a program that should have the ability to search through the contents of a list box. I would like to set it up so that as you type text into a textbox it compares that text to the text in the listbox. If the text in the list box does not partain to the text in the textbox it want it removed. And when the text box it cleared I want the listbox to be restored to the original contents.

I know this is kind of confusing but if anyone can help me I would appreciate it.

Thanks,
Mark

[chrisjk]

Is this what you're after?

Dim i As Long
 
For i = List1.ListCount - 1 To 0 Step -1
    If UCase(Text1.Text) <> UCase(List1.List(i)) Then
        'remove it
        List1.RemoveItem i
    End If
Next i

[shabbs]

you mean kinda like in a help index? as you put in each additional letter the index jumps to the next closest match in the list? what I can suggest is when a key is pressed in the text box, go through each item in listbox and see if the text in the textbox exists in each line of the list box (maybe use InStr?) and if it's not on the line then ListBox.Remove ListBox.ListIndex or something like that. I'm sure there is a better way to do it but that's my 2 cents.

[mbaker33]

I want it so that if I type the Letter "E" it will eliminate everything that does not begin with the letter "e" or "E". I know how to do the eliminating part but I don't know how to do the comparing part.

[chrisjk]

Small modification to code I already gave. Would be an idea to explain yourself properly

Dim i As Long
 
For i = List1.ListCount - 1 To 0 Step -1
    If UCase(Left$(Text1.Text, 1)) <> UCase(Left$(List1.List(i), 1)) Then
        'remove it
        List1.RemoveItem i
    End If
Next i

[mbaker33]

that one gave me an compile error that says "Type-declaration character does not match declared data type"

[Jerry Grant]

How are you initially populating the listbox?

If from a database table, then do a SQL Select query based on your entered text in the textbox, this will allow the list box only to be populated with data for each added (or deleted) keystroke.

"SELECT myDispValue FROM myTable WHERE myDispValue LIKE '" &  myText & "%'"

You must clear the listbox before each re population of the resulting recordset.

[chrisjk]

Any specific line?

[chrisjk]

Example using above code...

[mbaker33]

It works great now.....I changed a couple of things and the error went away and it works. Thanks