Совпадение Combobox и Textbox

[Razr]

И снова я)))) У меня еще один вопрос (наверно не последний):

Имеются на форме textbox1, Button1 и Combobox1
Содержание Combobox1:
Дима
Андрей
Юля
Вопрос:
В поле textbox1 мы вводим чье то имя, после чего жмем на кнопку. В этот момент программа должна проверить есть ли текст введенный в textbox1 в Combobox1. Если да то вывести сообщение msgbox("Данные совподают")
Как это сделать (VB .NET 2005)

[Williams]

Код: Выделить всё

For Each Item in ComboBox.Items
If Item = TextBox.Text Then ...
Next

[Razr]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (TextBox1.Text = "") Then
TextBox1.Focus() 'Если имя пустое, то программа фокусируется на этом боксе
Else
For Each Item In getr.Items
If Item = TextBox.Text Then
MsgBox("Такое имя уже существует")
End If
Next
Close()
End If

End Sub

- этот код почему то не работает((((
Error 1 Name 'Item' is not declared.

Что это может быть?

[dr.MIG]

Это то и значит, что написано -- что переменная Item не определена. Объяви её в начале процедуры.

[Razr]

У меня все равно ничего не получается..... Я хочу чтобы из текстбокса данные проверились по всему списку Combobox. А не по активному в Combobox. Как это сделать? Напишите свой код кто знает. Помогите тупому!!!!!!

[Viper]

Собственно для ComboBox имеются аж целых два метода поиска строк: FindString и FindStringExact. Почему бы не воспользоваться?

[Razr]

Собственно для ComboBox имеются аж целых два метода поиска строк: FindString и FindStringExact. Почему бы не воспользоваться?

Пробовал. Все равно ошибка. Можно по подробнее с примером кода как это делается.

[Viper]

Собственно для ComboBox имеются аж целых два метода поиска строк: FindString и FindStringExact. Почему бы не воспользоваться?

Пробовал. Все равно ошибка. Можно по подробнее с примером кода как это делается.

Как пробовал? Показывай код. Что за ошибка?

[Razr]

Код: Выделить всё

If getr.FindString(TextBox1.Text, 0) = TextBox1.Text Then
                'Что то тут
            End If

Вот так. Может конечно что то я тут не то написал.... но ведь у меня даже нормального учебника по VB нет

[Razr]

Ошибка: Приведение строки XXX к типу Double является недопустимым.

[Viper]

Код: Выделить всё

If getr.FindString(TextBox1.Text, 0) = TextBox1.Text Then
    'Что то тут
End If

Метод FindString возвращает индекс найденного элемента, если таковой имеется, или -1, если элемент не найден. Ты же пытаешься сравнить полученный индекс со строкой которую ишешь. Сие есть ересь.
З.Ы. Отстутствие учебника не есть оправдание, в данном случае надо было просто смотреть в MSDN.

[Viper]

Ошибка: Приведение строки XXX к типу Double является недопустимым.

И где же произошла эта ошибка?

[Razr]

Код: Выделить всё

If getr.FindString(TextBox1.Text, 0) = TextBox1.Text Then
    'Что то тут
End If

При запуске проекта именно этот код не проходит(((((

[Razr]

Viper, Ну так что же делать? Может ты код кинешь, а?

[Viper]

Я что-то не пойму, а прочитать ответы и самому догадаться как поправить код не судьба? Разжевывать надо?

Код: Выделить всё

If getr.FindString(TextBox1.Text) >= 0 Then
    ' Значит строка TextBox1.Text в комбобоксе есть, дальше делай с ней, что хочется
End If

[Viper]

2 Razr Ошибка "Приведение строки XXX к типу Double является недопустимым" никоим образом не может произойти в этом коде

Код: Выделить всё

If getr.FindString(TextBox1.Text, 0) = TextBox1.Text Then
    'Что то тут
End If

[Razr]

Уж лучше разжуйте, один раз, чтоб я на всю жизнь понял.

[Razr]

MSDN ничего обьяснить не могут. Гугл молчит, а проблема все равно остается. Я тут подумал, а что если попробовать добавить на форму Richtextbox.
А потом из Combobox скинуть строки в Richtextbox. И найти уже в Richtextbox. Как такой вариант? Если кто сможет код написать и прислать: пришлите пожалуйста.

[Nord777]

Тебе Williams(и не только он) уже дал ответ. Оставалось лишь слегка подумать(хотя слово "подумать" в данном контексте звучит кощунственно).

Код: Выделить всё

        For Each Item As String In ComboBox1.Items
            If Item.Equals(TextBox1.Text) Then
                MsgBox("Equals")
            End If
        Next

или другой вариант(более быстрый)

Код: Выделить всё

        If ComboBox1.Items.Contains(TextBox1.Text) Then
            'MsgBox("Equals")
        End If

Добрый совет: Перед тем, как продолжать задавать все новые и новые вопросы, в то время как тебе всё разжевали - почитай форум хотя бы в течении месяца. Уверен, что на большинство своих вопросов ты легко найдешь ответы. Удачи в этом начинании.

[Razr]

Спасибо большое! Работает!

[Viper]

По причине того, что все возможные варианты решения проблемы даны, да еще и не по разу, тему прикрываю.