2

我知道我可以使用.FindString它,但由于某种原因它不起作用。

基本上,如果列表框项目只包含文本框文本的一部分,它会执行操作。

这是无效代码的示例:

Dim x As Integer = -1
        x = ListBox1.FindString(TextBox1.Text)
        If x > -1 Then
            'dont add
            ListBox2.Items.Add("String found at " & x.ToString)
        Else

        End If
4

1 回答 1

3

该方法返回以搜索字符串 ( MSDNFindString )开头的第一项。如果要匹配整个项目,则必须使用( MSDN )。如果要执行更复杂的搜索,则必须遍历. FindStringExactListBox

更新:提供 OP 所期望的确切功能的代码。

For i As Integer = 0 To ListBox1.Items.Count - 1
    If (ListBox1.Items(i).ToString.Contains(TextBox1.Text)) Then
        ListBox2.Items.Add("String found at " & (i + 1).ToString) 'Indexing is zero-based
        Exit For
    End If
Next
于 2013-09-28T09:51:02.970 回答