Visual basic List.box question

Question

J'ai 1 zone de texte et 1 zone de liste dans mon formulaire VB.

Je veux vérifier l'article en double, comparer avec l'élément textbox.text1 et listbox.list.

et si textbox.text1 valeur est '3333' et la valeur multiple listbox.list est '1111' '2222' '3333' '4444'

alors comment mettre en œuvre cette routine comme de vérification en double?

donc si double détection compare avec la valeur text1 actuelle et comparer avec l'un des

valeur

de ListBox est si détecter, veulent au popup messagebox

merci à l'avance

Answer 1

En supposant que vous insérez des chaînes dans votre ListBox vous pouvez faire ceci:

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click 
    Dim x As String 
    For Each x In ListBox1.Items 
     If (x = TextBox1.Text) Then 
      MessageBox.Show("Error") 
      Return 
     End If 
    Next 
    ListBox1.Items.Add(TextBox1.Text) 
End Sub 

Si c'est un autre type d'objet qui a une propriété appelée valeur alors vous avez besoin d'un petit c hangement:

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click 
    Dim x As Foo 
    For Each x In ListBox1.Items 
     If (x.Value = TextBox1.Text) Then 
      MessageBox.Show("Error") 
      Return 
     End If 
    Next 
    ListBox1.Items.Add(TextBox1.Text) 
End Sub 

Answer 2

En supposant que le ListBox contient des chaînes, vous pouvez utiliser la méthode Contains de la collection Items pour vérifier les matchs. Exemple (faire une forme avec un ListBox appelé '_theListBox', un TextBox appelé '_theTextBox' et un Label appelé '_theLabel'):

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    _theListBox.Items.AddRange(New String() {"aaaa", "bbbb", "cccc", "dddd"}) 
End Sub 

Private Sub _theTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _theTextBox.TextChanged 
    If ListBoxContainsItem(_theListBox, _theTextBox.Text) Then 
     _theLabel.Text = "It's a match" 
    Else 
     _theLabel.Text = "" 
    End If 
End Sub 

Private Function ListBoxContainsItem(ByVal lb As ListBox, ByVal text As String) As Boolean 
    ' check if the string is present in the list ' 
    Return lb.Items.Contains(text) 
End Function