Как размножить группу контролов в форме?

[rdva]

В форме, в зависимости от кол-ва таблиц на листе, должны повторяться одинакове группы контролов, у контролов должны быть процедуры обработки событий.

По идее, нужно один раз создать форму, а потом тиражировать ее сождержимое. Как это сделать?

[Viper]

Тебе надо, чтобы было несколько одинаковых форм или форма с некоторым количеством одинаковых элементов?
Если первое, то создавай нужное количество форм оператором New. Если второе, то создай элемент с индексом 0, а потом добавляй нужное количество элементов при помощи Load.

[rdva]

Форма с некоторым кол-вом одинаковых элементов.
А как быть с процедурами обработки событий?

[alibek]

Для всех элементов массива используется одна процедура обработки событий.

[rdva]

Можете в качестве примера привести кусок кода, создающего элемент с индексом 0, а потом добавляющего нужное количество элементов при помощи Load?

[Viper]

делов то, допустим есть текстбокс txtEdit, с индексом 0, добавим еще допустим 5

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

For i= 1 to 5
   Load txtEdit(i)
Next i

Удалить добавленное

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

For i = 5 To 1 Step -1
    Unload txtEdit(i)
Next i

или

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

For i = 1 To 5
    Unload txtEdit(1)
Next i

[rdva]

Создавать так?

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

Dim txtEdit() as Control

а как прицеплять обработку событий?

[rdva]

Что то я не догоняю...

Модуль класса Class1

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

Public WithEvents ComboBoxEvents As MSForms.ComboBox

Private Sub ComboBoxEvents_Change()
    MsgBox "Change!"
End Sub


Property Let Top(digit As Integer)
    ComboBoxEvents.Top = digit
End Property

Модуль с кодом

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

Option Explicit
Sub test()
    Dim cbox() As Class1   
    Dim Size As Integer, i As Integer
       
    Size = 3
    ReDim cbox(1 To Size)
           
    For i = 1 To Size
        Set cbox(i) = UserForm1.Controls.Add("Forms.ComboBox.1", "Cbox" & i, True)
    Next
    UserForm1.Show
End Sub

Встает на строке Set cbox(i) = UserForm1... с ошибкой Type Mismatch. Что делаю не так?

И еще вопрос - при создании нового класса методы и свойства объекта, на основе которого создан новый класс, не наследуются? У меня , к примеру, .top ComboBox'a работать не захотел, пришлось писать Property Let top в модуле класса. Так и должно быть?

[anvg]

rdva
В VBA нет массивов элементов Controls в отличии от VB6. Наследование не поддерживается. Можно организовать его включением. Для решения твоей задачи. Создай класс с именем ComboEventHandler

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

Option Explicit
Public WithEvents Combo As MSForms.ComboBox
'Общая процедура для всех раскрывающихся списокв
Private Sub Combo_Change()
    MsgBox Combo.Name
End Sub


В коде формы следующее (создаём на форме 3 раскрывающихся списка)

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

Option Explicit
'Коллекция раскрывающихся списков (вдруг понадобится доступ по индексу)
Private GroupCombo As New Collection

Private Sub UserForm_Activate()
    Dim pControl As MSForms.Control
    Dim pCombo As ComboEventHandler
    Dim i As Long, iTop As Long
   
    iTop = 4&
    For i = 1 To 3
        Set pCombo = New ComboEventHandler
        Set pCombo.Combo = Me.Controls.Add("Forms.ComboBox.1", "Combo" & CStr(i))
        pCombo.Combo.Left = 6
        pCombo.Combo.Top = iTop
        GroupCombo.Add pCombo
        iTop = iTop + 22
    Next i
End Sub


[rdva]

Не работает. Останавливается на Set pCombo.Combo = Me.Controls.... c ошибкой Member or data member not found.

Каковы функции переменной pControl? Она нигде не используется, имхо...

[anvg]

rdva
Private Sub UserForm_Activate() должна находится в коде формы, где строятся ComboBox, иначе замените Me на название формы (UserForm1, например)
pControl - лишний, давал ответ на другом форуме на почти такой же вопрос (ComboBox уже были на форме)

[rdva]

Как можно идентифицировать контрол, который вызвал событие Combo_Change()?
Вычитал, что событим можно передавать аргументы, как процедурам, но что-то убей не получается ничего передать. Это возможно? Это да, то как?

[anvg]

rdva
А Combo.Name чем не устраивает?