我希望我的代码能够在列表框中搜索“QB”。一旦找到显示消息然后停止。现在写我的代码后继续搜索列表框。如何更改我搜索列表框的方式?
Private Sub btnQB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQB.Click
For i As Integer = 0 To lstPlayers.Items.Count - 1
Dim txt = lstPlayers.Items(i).ToString()
If txt.Contains("QB") Then
MessageBox.Show(lstPlayers.Items(i))
Else
MessageBox.Show("No Listed Quaterbacks")
End If
Next
答案 0 :(得分:1)
试
dim bFound as Boolean = false
For i As Integer = 0 To lstPlayers.Items.Count - 1
Dim txt = lstPlayers.Items(i).ToString()
If txt.Contains("QB") Then
bFound = true
MessageBox.Show(lstPlayers.Items(i))
return
End If
Next
if not bFound Then
MessageBox.Show("No Listed Quaterbacks")
End If
答案 1 :(得分:0)
这很好用
Dim SB As New System.Text.StringBuilder
For Each Item As String In ListBox1.Items
SB.Append(Item & vbCrLf)
Next
MessageBox.Show(SB.ToString)