14 replies to this topic

[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:
[ATTACH]1261[/ATTACH]

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 ..

[ATTACH]1260[/ATTACH]

Thanks, Egz0N .. :)

Attached Files

•  73213403ri1.png   3.61K   56 downloads
•  98981695et0.png   3.02K   52 downloads
•  SearchList.rar   1.74K   67 downloads

Edited by Jordan, 15 January 2009 - 06:44 AM.

[mendim.]

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

[Egz0N]

Quote

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 ..

Quote

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 ..

Quote

How do I remove items from the listbox?

using the code list1.removeitem(index)

Quote

What does this code do?

theListText = LCase(List1.List(theList))

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

Quote

Why do you use a for loop?

For theList = 0 To List1.ListCount - 1

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

Quote

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 :)

[Turk4n]

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

[MathX]

+rock :D. Very nice :D

[Egz0N]

Jordan said:

Perfect! Now I understand! :D +rep

thanks :)

Turk4n said:

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

lol .. thanks ..

MathXpert said:

+rock :D. Very nice :D

thanks .. :)

[Xav]

Nice one, +rep.

[Egz0N]

Xav said:

Nice one, +rep.

thanks bro .. :)

[Xav]

My absolute pleasure. :rolleyes:

[Dren]

I like it, this gave me an idea for another tutorial, +rep:)