SearchList

[Egz0N]

Hello CodeCall members ..
Today I am going to show you how to make a simple SearchList using VB 6 ..

Ok .. all you need is a form .. a TextBox .. a button and a ListBox ..

the SearchList will look like this:


Ok than .. rename the button to "Search" first ..

and than add this code to the button ..

Dim theList As Long
Dim textToSearch As String
Dim theListText As String

textToSearch = LCase(Text1.Text)

For theList = 0 To List1.ListCount - 1

    theListText = LCase(List1.List(theList))

    If theListText = textToSearch Then List1.Text = textToSearch

Next
End Sub

and than after this .. add:

Private Sub Form_Load()
List1.AddItem "Code"
List1.AddItem "CodeCall"
List1.AddItem "Member"
List1.AddItem "Admin"
List1.AddItem "Mod"
End Sub

this is the list that loads the items to the listbox on Application StartUp ..

now .. if you search for one the items on the list ..that item will be selected ..

...

and now .. a test ..



Thanks, Egz0N ..

[Jordan]

Not bad, it is mostly code so I'm left with a few questions (being a n00b). How does this work? How does the search list know how to find the results? How do I remove items from the listbox? What does this code do?

theListText = LCase(List1.List(theList))

Why do you use a for loop?

For theList = 0 To List1.ListCount - 1

Why do you compare the text values?

    If theListText = textToSearch Then List1.Text = textToSearch

??

[mendim.]

I Really needed it..
Thank a lot EgzON +rep .

[Egz0N]

How does this work?

this works using a loop that passes through each item on the listbox and checks if the searched item fits with the found one ..

How does the search list know how to find the results?

by checking all the elements of the list one by one if they are the same as the text we typed in the textbox ..

How do I remove items from the listbox?

using the code list1.removeitem(index)

What does this code do?

theListText = LCase(List1.List(theList))

it takes only lowercase words on the list with index "thelist"

Why do you use a for loop?

For theList = 0 To List1.ListCount - 1

cos "for loop" is more adapted for this searchlist ..

Why do you compare the text values?

    If theListText = textToSearch Then List1.Text = textToSearch

this code is used to check if the current element is the same as the searched words if yes, the searched item will be selected ..


sry .. i didn't explain this from the beginning but next time i'll explain each of the code what it does ..

Thanks, Egz0N

[Jordan]

Perfect! Now I understand! +rep

[Turk4n]

Looked up, looks really good !
One question how did you do it good? ?

[MathX]

+rock . Very nice

[Egz0N]

Perfect! Now I understand! +rep

thanks

Looked up, looks really good !
One question how did you do it good? ?

lol .. thanks ..

+rock . Very nice

thanks ..

[Xav]

Nice one, +rep.

[Egz0N]

Nice one, +rep.

thanks bro ..