[Gambas-user] Filtering listbox list

[Gianluigi]

>
>
> So does this:
>
> Public Sub TextBox4_KeyRelease()
>
>   Dim ndx As Integer
>
>   ListBox6.Clear
>
>   If TextBox4.Text = "" Then ListBox6.List = ListBox4.List
>   If TextBox4.Text <= " " Then Return ' not searchable
>   ndx = ListBox4.Find("*" & TextBox4.Text & "*", gb.Like)
>   While ndx >= 0 ' found another
>     ListBox6.Add(ListBox4[ndx].Text)
>     ndx = ListBox4.List.Find("*" & TextBox4.Text & "*", gb.Like, ndx + 1)
>   Wend
>
> End
>
> :-)
>
>
> --
> Lee
>
> --------------------------------------------------


Hi Lee,

your code works very well 👍

Regards
Gianluigi
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20180311/2e2bf9ff/attachment.html>