比較文本框中的文本，在vb.NET

Question

列表框項目文本如何比較在vb.NET列表框項目文本文本框中的文本....請幫助

Answer 1

Dim text As String = Me.TxtName.Text 
For Each item As Object In Me.ListBox1.Items 
    If item.ToString = text Then 
     'Do something' 
    Else 
     'Do something else' 
    End If 
Next 

如果使用自定義對象作爲數據源您的列表框中，覆蓋類別中的ToString以將它們與您的文本框的文本進行比較。 ListBox.ObjectCollection Class

例如：

Class FooClass 
    Private _name As String 

    Public Property Name() As String 
     Get 
      Return _name 
     End Get 
     Set(ByVal value As String) 
      _name = value 
     End Set 
    End Property 
    Public Overrides Function ToString() As String 
     Return Me.Name 
    End Function 
End Class 

Answer 2

我嘗試以下在VB.net 它工作得很好

aspx頁面

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> 

</div> 
<asp:ListBox ID="ListBox1" runat="server"> 
    <asp:ListItem>zero</asp:ListItem> 
    <asp:ListItem>first</asp:ListItem> 
    <asp:ListItem>second</asp:ListItem> 
</asp:ListBox> 
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox> 
<asp:Button ID="Button1" runat="server" Text="Button" /> 
</form> 

後面的代碼

Partial Class _Default 
Inherits System.Web.UI.Page 

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click 
    For Each item In ListBox1.Items 
     If item.ToString = TextBox1.Text Then 
      Response.Write("matching " + item.ToString) 
     End If 
    Next 
End Sub 

末級

Answer 3

Dim tempInt = lbTeams.Items.Count - 1 
While (tempInt > -1) 
    If (lbTeams.GetItemText(lbTeams.Items.Item(tempInt)).ToString().Equals(txtTeamName.Text) = True) Then 
     MsgBox("Team Already Exist") 
     Exit Sub 
    End If 
    tempInt -= 1 
End While