پیدا کردن بعدی

[Overhere]

بطور مثال من دارای 2 تا 14 در لیستباکس هستم و کد برای پیدا کردن 14 یا هر چیز دیگه رو اینطوری نوشتم:
For Each f As String In ListBox1.Items
If TextBox1.Text = f Then
ListBox1.SelectedItem = f
Exit Sub
ElseIf f.Contains(TextBox1.Text) Then
ListBox1.SelectedItem = f
Exit Sub

End If
Next f
حالا میخوام بگم وقتی دوباره رو دکمه کلیک کرد بعدی رو پیدا کن؟؟؟؟

[Naghibi]

فکر کنم مشکل شما با این حل بشه

Dim CurrentPos As Integer = 0

For i As Integer = CurrentPos To ListBox1.Items.Count - 1
If TextBox1.Text = ListBox1.Items(i).ToString Or ListBox1.Items(i).ToString.Contains(TextBox1.Text) Then
CurrentPos = i
Exit For
End If
Next

فقط متغیر currentPos رو باید بیرون از این تابع تعریف کنین تا سراسری باشه

[Overhere]

خیر درست نشد!

[Naghibi]

Dim CurrentPos As Integer = -1

For i As Integer = CurrentPos+1 To ListBox1.Items.Count - 1
If TextBox1.Text = ListBox1.Items(i).ToString Or ListBox1.Items(i).ToString.Contains(TextBox1.Text) Then
CurrentPos = i
Exit For
End If
Next