Listbox Censor List

[batori]

Hi guys,

I was wondering....

Well, i have a listbox with data....and what i would like to do is to check if text1 has any string inside it that matches the list1 items?

Maybe a good idea would be to go from i=1 to List1.listcount... and then if text1.find (list1(i).text)....ecc?

what do u think?


Cheers

[Hack]

Try this

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const LB_FINDSTRINGEXACT = &H1A2

Private Sub AddToListbox(strListBItem As String, LB As ListBox)

    Dim lngListIndex As Long
    
    ' lngListIndex is the ListIndex if the item is found
    lngListIndex = SendMessage(LB.hwnd, LB_FINDSTRINGEXACT, -1, ByVal strListBItem)
    If lngListIndex = -1 Then
        LB.AddItem strListBItem
    Else
        MsgBox strListBItem & " is already in the Listbox"
        Exit Sub
    End If
End Sub

Private Sub Command1_Click()
AddToListBox Text1.Text, List1
End Sub

[MartinLiss]

No need to loop. See post #3 here.

[Hack]

Post #3 uses a For/Next loop

[MartinLiss]

Post #3 uses a For/Next loop

You're right.

[batori]

Hehehehehe....


Thanks guys... i will try it now