Listbox Censor List

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

Try this

Code:

---

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

---

No need to loop. See post #3 here.

Post #3 uses a For/Next loop :confused:

Quote:

---

Originally Posted by Hack

Post #3 uses a For/Next loop :confused:

---

You're right.:blush:

Hehehehehe....


Thanks guys... i will try it now :D