У меня 1600 текстовых полей. Я хочу что-то вроде этого:
Textbox1.Text="1"
Textbox2.Text="2"
Textbox3.Text="3"
Textbox4.Text="4"
...
Я знаю, что это не работает, но мне нужен такой цикл:
For i as integer = 0 to 1600
(textbox+i).text=i
Next
Я ничего не мог найти об этом. Я не знаю, возможно ли это. Есть идеи?
For i as integer = 0 to 1600
CType(Me.Controls("Textbox" + i.ToString()), TextBox).Text = i.ToString()
Next
Надеюсь, это сработает.
CType(Me.Controls("Textbox"+(i).ToString()), TextBox).Text = (i).ToString(). Где-то там.
- person Paul; 22.09.2015
Text. OP также указывает линейный набор элементов управления (TextBox1, TextBox2... и т.д.). Обработка ошибок может быть кувалдой и ореховой областью для этой простой демонстрации.
- person Paul; 22.09.2015
Если вы хотите выполнить цикл из предопределенного диапазона значений, то это должно помочь:
For i = 1 to 1600
Dim txt As TextBox = TryCast(Me.Controls("TextBox" & i.ToString), TextBox)
If txt IsNot Nothing
txt.Text = i.ToString()
End If
Next
Прежде всего, давайте перечислим все текстовые поля:
var textboxes = this.Controls.OfType<TextBox>()
.ToArray();
Теперь, когда у нас есть текстовые поля, давайте переберем их и установим их количество:
for(int i = 0; i < textboxes.Count(); i++)
{
var textbox = textboxes[i];
textbox.Text = i.ToString();
}
.Select((c,i)=>new {Control=c,Index=i}), то foreach над коллекцией, вы получите значение индекса и только один раз будете взаимодействовать с коллекцией.
- person Matthew Whited; 22.09.2015
.Count() может снова взаимодействовать с набором. Вам лучше использовать .Length или еще лучше установить переменную для подсчета перед for или использовать foreach
- person Matthew Whited; 22.09.2015
ToArray() будет оценивать операторы LINQ. Каждый вызов Count() не будет повторять набор снова. Этот метод расширения проверяет, является ли перечисляемый массив массивом или списком. Если бы я выбрал List<T, свойства Count() и Length были бы другими. Тот факт, что это менее эффективный подход, не означает, что это не решение.
- person Cameron; 22.09.2015
Просто чтобы добавить еще один параметр (хотя я не рекомендую его - он медленный!!!!), вы можете использовать Reflection, чтобы получить их по имени в цикле.
e.g:
For tb As Integer = 1 To 1600
Dim textBox As TextBox = GetTextBoxByReflection("TextBox" & tb.ToString())
textBox.Text = tb.ToString()
Next
См. также Получение переменной по имени в C#
Вы также можете зациклить все элементы управления...
Dim tb As TextBox
For Each ctrl As Control In form1.Controls
If ctrl.GetType.ToString = GetType(TextBox).ToString Then
tb = CType(ctrl, TextBox)
tb.Text = ctrl.ID.Substring(7)
End If
Next
