选择下一个重复的Listbox项.net

我试了好几次，选择下一个重复行，同时更改了它

比如说,

ListBox1项目的：

我的代码（按钮1）：

这样，它将更改顶行中的第一个“1”，然后选择 另一个“1”，并将其更改为“已更改”。。。等等

如果TextBox1.Text=“1”，则
ListBox1.SelectedItem=TextBox1.Text
Dim indx As Integer=ListBox1.SelectedItem
如果indx-1那么
ListBox1.选择（indx，TextBox1.Text.Length
如果ListBox1.SelectedItem“”则
ListBox1.SelectedDices=“已更改”
如果结束
如果结束
如果结束

我尝试了这个，但它选择了所有重复的项目，我想单选择每个按钮点击

Dim s As String = Me.TextBox1.Text
    Dim lb As ListBox = Me.ListBox1
    lb.SelectedIndex = -1
    If s.Length <> -1 Then


        For i As Integer = 0 To lb.Items.Count - 1

            Try
                If lb.Items(i).ToString.Contains(s) Then
                    lb.SelectedIndices.Add(i)


                Else

                End If
            Catch ex As Exception

            End Try

        Next
    End If

Dim s As String=Me.TextBox1.Text
Dim lb As ListBox=Me.ListBox1
lb.SelectedIndex=-1
如果s.长度为-1，则
对于i，整数=0到lb.Items.Count-1
尝试
如果lb.Items（i）.ToString.包含（s），则
lb.selectedDices.Add（i）
其他的
如果结束
特例
结束尝试
下一个
如果结束

---

每单击一次按钮都会更改一个重复的项目行。

我不确定是否理解您的需要，但请尝试以下操作：

   Dim s As String = Me.TextBox1.Text
    Dim lb As ListBox = Me.ListBox1

    Dim selected = lb.SelectedIndex
    If s.Length <> -1 Then


        For i As Integer = selected + 1 To lb.Items.Count - 1
            If lb.Items(i).ToString = s Then
                lb.SelectedIndex = i
                Exit For
            End If
        Next
    End If

Dim s As String=Me.TextBox1.Text
Dim lb As ListBox=Me.ListBox1
所选尺寸=磅。所选尺寸
如果s.长度为-1，则
对于i作为整数=所选+1到lb.Items.Count-1
如果lb.Items（i）.ToString=s，则
lb.SelectedIndex=i
退出
如果结束
下一个
如果结束

1号，这是我需要做的，我标记为已回答，非常感谢。

Dim s As String = Me.TextBox1.Text
    Dim lb As ListBox = Me.ListBox1
    lb.SelectedIndex = -1
    If s.Length <> -1 Then


        For i As Integer = 0 To lb.Items.Count - 1

            Try
                If lb.Items(i).ToString.Contains(s) Then
                    lb.SelectedIndices.Add(i)


                Else

                End If
            Catch ex As Exception

            End Try

        Next
    End If

   Dim s As String = Me.TextBox1.Text
    Dim lb As ListBox = Me.ListBox1

    Dim selected = lb.SelectedIndex
    If s.Length <> -1 Then


        For i As Integer = selected + 1 To lb.Items.Count - 1
            If lb.Items(i).ToString = s Then
                lb.SelectedIndex = i
                Exit For
            End If
        Next
    End If