Как избавиться от лишнего кода?

[Лохматый]

Как избавится от лишнего кода, если у меня 50 элементов textbox и каждый нужно опросить?
Такой код:
Dim a(49) as string
a(0) = Textbox1.Text
a(1) = Textbox2.Text
a(2) = Textbox3.Text
....
a(49) = Textbox50.Text

Какой-то есть подход?

[GSerg]

Если текстбоксов столько, то значит пора менять дизайн

[Лохматый]

Это программа анализа эксперемертальных данных. Как ещё можно опросить пользователя? Нужно 50 текстовых полей.
Часто встречается, что с одним и тем же типом элементов, например label, нужно сделать что-либо и чтобы не перечислять как показано выше, что можно сделать?[/syntax]

[Shurrik]

1 вариант - перебор всех контролов:
Dim tb As Control
For Each tb In Me.Controls ' перебираем все контролы
MsgBox(tb.Name, MsgBoxStyle.Critical)
If tb.Name.Length > 7 Then
If tb.Name.Substring(0, 7) = "TextBox" Then
Dim n% = tb.Name.Substring(7) ' узнаем номер
a(n) = tb.Text
End If
End If
Next
2 вариант - через DataSet:
Создай на форме DataSet, в нем таблицу, в таблице поля, привяжи свои TextBox к этим полям. Массив полей и есть твой массив А()

[Лохматый]

1-й вариант не работает.
в строчке

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

a(n) = tb.Text

Возникает ошибка.

[Sebas]

А текстБоксы в массив загнать не судьба?

[Лохматый]

А текстБоксы в массив загнать не судьба?

А как?

[Sebas]

Dim d(50) as textbox

for i=0 to 50
d(i)=new textbox
me.controls.add(d(i))
'выставить свойства d(i) и если нужно события
next

[Лохматый]

а если элементы уже добавленны в форму, зачем их добавлять ещё раз?

[Sebas]

а если элементы уже добавленны в форму, зачем их добавлять ещё раз?

э..? чёрт, даже не знаю чё сказать. Сильно сказано...

[Лохматый]

может я глупость написал, тогда подскажите...

[Sebas]

ну убери их

[Лохматый]

все textbox'ы расставлены в нужных местах формы, а при выполнении кода, появляется в углу один элемент textbox, или 50 в одном месте.

[Sebas]

добавляй в TablePanel если не можешь зависимость от i создать

[gaidar]

Вообще-то надо делать массив. Но если уж так приперло, то перебирай в цикле так:

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

        Dim a(50) As String
        Dim c() As Control
        Dim i As Integer
        Dim t As TextBox

        For i = 0 To i = 50
            c = Me.Controls.Find("Textbox" + i.ToString(), True)
            If c.Length = 0 Then
                a(i) = "0"
            Else
                t = CType(c(0), TextBox)
                a(i) = t.Text
            End If
        Next

[Ramzes]

Ответы себаса рулят..порадовало..но ркально челу ты так и не помог

[Лохматый]

Вообще-то надо делать массив. Но если уж так приперло, то перебирай в цикле так:

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

        Dim a(50) As String
        Dim c() As Control
        Dim i As Integer
        Dim t As TextBox

        For i = 0 To i = 50
            c = Me.Controls.Find("Textbox" + i.ToString(), True)
            If c.Length = 0 Then
                a(i) = "0"
            Else
                t = CType(c(0), TextBox)
                a(i) = t.Text
            End If
        Next

для проверки массива пишу ниже :

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

For i = 1 To 50
            MessageBox.Show(a(i))
        Next i

массив пустой.

Меня не приперло мне нужен любой метод, просто подробней описать, что делать. Я ведь только учусь...

[Лохматый]

Может существует другой элемент с помошью которого можно на форме сделать большую таблицу и потом все данные записать в массив?
Если да, то как это сделать?

[vrodo]

МДаааааааа
А про понятие DataSet из вас ктонибудь слышал ?
в DataSet добавляем табличку с необходимым количеством полей и в текстовых полях делаем привязку
Плюс получам дополнительную фичу просмотр последних результатов да и вообще историю результатов эксперимента если добавить сохранение в базу данных или в XML

[Лохматый]

добавляй в TablePanel если не можешь зависимость от i создать

Добавил... А как теперь в массив загнать?