For Each для ComboBox

[Dummiel]

Хай, други мои!

На форме имеются до 50 ComboBox'ов, по определенным признакам объединенных в 5 групп, соответственно, под своими именами в каждой группе, т.е., в каждой группе они объединены в массив.

При загрузке формы во избежание путаницы я каждому комбику присваиваю значение .ListIndex = 0.

Как "изящно" обойти все комбики?

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

Dim objCbo As ComboBox

For Each objCbo In [???]
    objCbo.ListIndex = 0
Next

Что нужно писать после [In]?

Пока я не придумал ничего лучше, чем:

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

Dim objCbo As Control

For Each objCbo In Controls
    With objCbo
        If .Name = "cboGroup1" Or .Name = "cboGroup2" Or .Name = "cboGroup3" Or _
           .Name = "cboGroup4" Or .Name = "cboGroup5" Then .ListIndex = 0
    End With
Next

А правильно ли это? Чувствую - нет.
В VB есть наборы "Controls" и "Forms", а вот "ComboBoxs" нету. Или это я уже лишку хватанул?

[alibek]

1. If TypeOf objControl Is ComboBox Then ...
2. Добавлять (один раз, при загрузке формы) все Combo в коллекцию и обходить ее.

[VB-constructor]

В VB есть наборы "Controls" и "Forms", а вот "ComboBoxs" нету.

тык он входит в набор "Controls"

[zHackLeX]

можешь так попробовать

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

for i = 1 to 5
   CallByName(me,"cboGroup" & cstr(i),vbget).listIndex=0
next i

(эт если контролов много и обращение по имени имеет смысл в плане быстродействия)

[Dummiel]

В VB есть наборы "Controls" и "Forms", а вот "ComboBoxs" нету.

тык он входит в набор "Controls"

Дык енто я знаю, просто я думал, как-то отдельно можно выделить ComboBox.

Спасибо всем, будем изящничать...

[Dummiel]

1. If TypeOf objControl Is ComboBox Then ...
2. Добавлять (один раз, при загрузке формы) все Combo в коллекцию и обходить ее.

На мой взгляд, самый оптимально-удобный ход - это первый, и работает безотбойно, и возни практичеки нет, а коллекцию создавать, да потом обходить... Мне кажется, муторновато. Хотя на вкус и цвет...

Спасибо еще раз!

[alibek]

У коллекций есть своя область применения и свои преимущества.