Вставка одной коллекции в несколько комбо

[Severus_Snape]

Здравствуйте! Вопрос такой. На форме есть несколько combobox'ов, в них должна быть одна коллекция. Имена у элементов отличаются только окончанием - combo1, combo2, combo3... Я так понял, что нужно сделать цикл и как-бы обойти эти боксы, вставляя в них элементы из коллекции. Но как обратиться к элементам - толком не знаю.
Пробовал так: Me.GroupBox1.Controls.Item(index)... но текст, видимость и прочие свойства изменить могу, а вот свойства Items, которое есть, если обращаться как Combobox1.Items - нету. Чувствую хожу около, но что-то упускаю.
Подскажите как єто сделать?

[Nord777]

Пробовал так: Me.GroupBox1.Controls.Item(index)...

Для чего тебе такой способ доступа с комбобоксам? Ипользуй ComboBox1.Items

[Severus_Snape]

Так ведь я пишу: у меня несколько комбоксов. А может быть еще больше, т.к. прога пока незакончена. Писать для каждого:
ComboBox1.Items = ...
ComboBox2.Items = ...
ComboBox3.Items = ...
не рационально. В PHP и во Флеше, знаю, используются для этого составные имена. А вот в VB я такого найти не могу.

[dr.MIG]

Создавай массив элементов управления, добавляй их на форму

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

Dim myComboBox(2) As ComboBox
myComboBox(0) = New ComboBox
myComboBox(1) = New ComboBox
myComboBox(2) = New ComboBox
Me.Controls.Add(myComboBox(0))
Me.Controls.Add(myComboBox(1))
Me.Controls.Add(myComboBox(2))


Затем обходи этот массив в цикле и делай с его элементами то, что тебе необходимо.

[Severus_Snape]

Реальный вариант. Спасибо. Хотя так все свойства придётся прописывать в коде...

[MIT]

Скопипасть из дизайнера

[1Steps]

Как вариант:

У ComboBox есть свойство Tag.
Присваивай этому свойству индекс комбобокса и обращайся к нему по индексу.

[Severus_Snape]

Как вариант:

У ComboBox есть свойство Tag.
Присваивай этому свойству индекс комбобокса и обращайся к нему по индексу.

Обращаться по индексу, это я понимаю так - Me.GroupBox1.Controls.Item(index) ? Вообще-то уже пробовал...
И вообще мне кажется я не в те дебри завернул, т.к. там нет половины свойств комбокса.

[Nord777]

тебе ЭТО надо?

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

  'Перебор всех комбобоксов на форме(во всех контейнерах)
  Sub ПереборВсехКомбобоксов(ByVal Container As System.Windows.Forms.Control.ControlCollection)
    Static Combo As ComboBox

    For Each Ctrl As Control In Container
      If TypeOf Ctrl Is ComboBox Then
        Combo = DirectCast(Ctrl, ComboBox)
        Combo.Items.Add(Combo.Name & "- Item 1")
        Combo.Items.Add(Combo.Name & "- Item 2")
      Else
        If Ctrl.Controls.Count <> 0 Then ПереборВсехКомбобоксов(Ctrl.Controls)
      End If
    Next

  End Sub

и вызов

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

    ПереборВсехКомбобоксов(Me.Controls)

[Severus_Snape]

Да не, мне такие извращения юыли не нужны. Доктор уже вылечил.