Стиль кодирования для инициализации элемента управления в форме

Question

Это правильный способ заполнения поля со списком?

В поле со списком формы указаны как cmbType1, cmbType2, cmbType3 ... и т. Д.

IЯ использую следующую логику для инициализации поля со списком:

Private Sub fillCombo(count As Integer)
    Dim cmbControl As Object
    For i = 1 To count

        Set cmbControl = Me.Controls.item("cmbType" + CStr(i))
        cmbConnectorTypeControl.AddItem ("ABC")
    Next i
End Sub

Так что я просто хочу проверить это, это правильный стиль кодирования?

Любые предложения приветствуются ...

Answer 1

Алекс прав.Если у вас уже есть поля со списком в форме, и ваш общий метод fillCombo работает, попробуйте изменить метод, чтобы принять ComboBox в качестве параметра.Это сохранит хит для поиска и упростит код.Я предполагаю, что вы на самом деле не добавляете «ABC» ко всем выпадающим спискам вплоть до счета, но даже если вы это сделаете, я бы скорее вызвал этот метод в цикле.

Private Sub fillCombo(ByVal vCombobox As ComboBox)

    vCombobox.AddItem ("ABC")

End Sub

Answer 2

Можно пропустить необходимость указать начальный счет;

fillCombo "cmbType"
...
function fillCombo(name)
dim ctrl as Control
for each Control in Me.Controls
    if typeof Control is ComboBox then
        if left$(Control.name, len(name)) = name then
            Control.additem "ABC"
        end if
    end if
next
end function