[Gambas-user] Filtering listbox list

[Gianluigi]

If you use 'Like TextBox4.Text & "*"' you will get the textbox text plus
zero or n characters.
If you want to find the characters written in textbox even in the middle of
the sentences then you have to write 'Like "*" & TextBox4.Text & "*"'

Regards
Gianluigi

2018-03-11 22:03 GMT+01:00 Shannon Kuchler <shannon at inflecto.org>:

> 
>
> This code works
>
>
> Public Sub TextBox4_KeyRelease()
>
> Dim i As Integer
> Dim l As Integer
> i = (-1)
>
> ListBox6.Clear
>
> If TextBox4.Text = "" Then ListBox6.List = ListBox1.List
> If TextBox4.Text <= " " Then Return ' not searchable
> For l = 0 To ListBox1.List.Max
> Inc i
> If ListBox1[i].Text Like TextBox4.Text & "*" Then ' found another
> ListBox6.Add(ListBox1[i].Text)
> Endif
> Next
> end
>
>
> I could not get it to work with out the "Inc i" perhaps I'm missing
> something there. Before it wasn't catching listbox1.index(0)  so I had to
> add "i = (-1)"
>
> However it still need something because it only 1/2 works
>
>
> for instance this is the data in listbox1
>
>
> The Dying Lands
> Bad Company
> Valmod Expansion Pack
> Valmod Overhaul Pack
> Darkness Falls (BBP)
> Starvation
> War Of The Walkers 5.2 (BBP)
>
>
> if I type "v" in textbox4 I get this output to listbox6 which I expected
>
>
> Valmod Expansion Pack
> Valmod Overhaul Pack
>
>
> However if I type "t" in textbox4 I get this output to listbox6
>
>
> The Dying Lands
>
>
> I expected 't" to give me everything that had a 't' like this
>
>
> The Dying Lands
>
> Starvation
>
> War Of The Walkers 5.2 (BBP)
>
>
>
>
>
>
>
> Good advice on using ListBox.List.Max.
>
> I have found the KeyRelease event to be more reliable in regards to having access to the actual, current keystroke value.
>
> And, instead of looping through List, I personally would simply use ListBox.Find.
>
>
> --
> Lee
>
> On 03/11/2018 09:37 AM, Gianluigi wrote:
> > Maybe you could use the KeyPress event with "If Key.Code = Key.Return Then ...",
> > "Inc i" is useless and you should use ListBox1.List.Max (or ListBox1.count -1) instead of ListBox1.Count to avoid the 'out of
> > bound' error.
> >
> > Regards
> > Gianluigi
> >
> > 2018-03-11 10:33 GMT+01:00 Shannon Kuchler <shannon at inflecto.org <mailto:shannon at inflecto.org>>:
> >
> >     __
> >
> >     
> >
> >         -I think I figured it out
> >
> >
> >         Public Sub TextBox4_KeyRelease()
> >         Dim i As Integer
> >         Dim l As Integer
> >
> >         ListBox6.Clear
> >
> >
> >               If TextBox4.text > "z" Or TextBox4.text < " " Then Return
> >               For l = 0 To ListBox1.Count
> >                 Inc i
> >                   If ListBox1[i].Text Like TextBox4.Text & "*" Then ' found another
> >                   ListBox6.Add(ListBox1[i].Text)
> >               Endif
> >               Next
> >
> >         End
> >
> >
> >
>
> --------------------------------------------------
>
> This is the Gambas Mailing List:
> https://lists.gambas-basic.org/listinfo/user
>
> Search the list:
> https://lists.gambas-basic.org/cgi-bin/search.cgi
>
> Hosted by https://www.hostsharing.net
>
>
>
> --------------------------------------------------
>
> This is the Gambas Mailing List:
> https://lists.gambas-basic.org/listinfo/user
>
> Search the list:
> https://lists.gambas-basic.org/cgi-bin/search.cgi
>
> Hosted by https://www.hostsharing.net
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20180311/70c35b7d/attachment.html>