Question

我希望我的代码能够在列表框中搜索“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

Answer 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

Answer 2

这很好用

Dim SB As New System.Text.StringBuilder

        For Each Item As String In ListBox1.Items

            SB.Append(Item & vbCrLf)

        Next

        MessageBox.Show(SB.ToString)

显示msgbox中列表框中的项目

2 个答案: