2010-12-07 58 views

Répondre

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 

Si vous utilisez des objets personnalisés comme DataSource votre zone de liste, remplacez ToString dans la classe pour les comparer avec le texte de votre zone de texte. ListBox.ObjectCollection Class

Par exemple:

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 
1

J'ai essayé ce qui suit dans VB.net il a bien fonctionné

la page 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> 

le code derrière

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 

End Class

0
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