visual basic List.box question

Question

У меня есть 1 текстовое поле и 1 список в моей форме VB.

Я хочу проверить дублирующийся элемент, сравнить с textbox.text1 и listbox.list.

и если textbox.text1 значение «3333» и listbox.list кратное значение «1111» «2222» «3333» «4444»

так, как реализовать такие, как дубликат проверки рутина?

так, если дубликат обнаружить сравнения с текущим значением TEXT1 и сравнение с одним из значения

ListBox является, если обнаружить, хочет всплывать MessageBox

заранее спасибо

Answer 1

Предполагая, что вы вставляете строки в ваш ListBox вы можете сделать это:

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 

Если это другой тип объекта, обладающий свойством Value, вам понадобится небольшой c висящий:

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

Предполагая, что ListBox содержит строки, вы можете использовать Contains метод Items коллекции для проверки матчей. Пример (сделать форму с ListBox под названием '_theListBox', а TextBox называется '_theTextBox' и Label называется '_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