Привет и добро пожаловать в стек переполнения.Просто небольшой указатель. Этот сайт предназначен для вопросов о конкретных проблемах существующего кода, а не сайта для написания кода или учебного сайта.Это довольно простая вещь, поэтому я подумал, что отвечу.
Это помогает, если вы разбиваете процесс на отдельные вещи, которые вы хотите сделать.Вот так
Итерация по каждому элементу в выпадающем списке.
Для каждой итерации,найдите местоположение предмета и сравните предмет с каждым предметом после него, чтобы увидеть, совпадают ли они.
Если есть совпадение, завершите поиск и верните истинный результат
Вам нужно написать код, который делает то, что вы хотите - это должно работать нормально, исходя из предположения, что элементы в выпадающем списке являются строками.
Public Function HasDuplicate(cboBox As ComboBox) As Boolean
For Each item As Object In cboBox.Items
For i As Integer = cboBox.Items.IndexOf(item) + 1 To cboBox.Items.Count - 2
If cboBox.Items.Item(i).ToString = item.ToString Then
HasDuplicate = True
Exit For
End If
Next
Next
Return HasDuplicate
End Function
Первый цикл получаетitem и внутренний цикл перебирают комбинированный список следующего элемента и сравнивают элементы, чтобы определить, есть ли совпадение.
Если совпадение установлено, для результата устанавливается значение True, и цикл останавливается.
Наконец результат, который он возвратил.