Как программно создать форму?

[viter.alex]

Как добавлять программно компоненты я знаю, а как создать форму?

[EducatedFool]

Цитата из книги Уокенбаха "Профессиональное программирование в VBA":

Листинг 28.6. Динамическое создание диалогового окна UserForm

Sub MakeForm()
    Dim TempForm As Object    'VBComponent
    Dim NewButton As Msforms.CommandButton
    Dim Line As Integer
    Dim TheForm
    Application.VBE.MainWindow.Visible = False
    ' Создание диалогового окна UserForm
    Set TempForm = ThisWorkbook.VBProject. _
                   VBComponents.Add(3)    'vbext_ct_MSForm
    With TempForm
        .Properties("Caption") = "Временная форма"
        .Properties("Width") = 200
        .Properties("Height") = 100
    End With
    ' Добавление элемента управления CommandButton
    Set NewButton = TempForm.Designer.Controls _
                    .Add("forms.CommandButton.1")
    With NewButton
        .Caption = "Щелкни!"
        .Left = 60
        .Top = 40
    End With

    With TempForm.CodeModule
        Line = .CountOfLines
        .InsertLines Line + 1, "Sub CommandButtonl_Click()"
        .InsertLines Line + 2, "MsgBox ""Привет!"""
        .InsertLines Line + 3, "Unload Me"
        .InsertLines Line + 4, "End Sub"
    End With
    ' Отображение диалогового окна UserForm
    VBA.UserForms.Add(TempForm.Name).Show
    ' Удаление диалогового окна UserForm
    ThisWorkbook.VBProject.VBComponents.Remove TempForm
End Sub

В коде много ошибок распознавания текста (русские буквы перемешаны с латиницей), так что используй как образец, а в VBA набирай код вручную.

Там есть и более сложные примеры.
Если надо книгу - скачать её можно здесь: http://excelvba.ru/books.html

[Sasha_Smirnov]

Ага! Вручную!

[viter.alex]

Сообщение от Sasha_Smirnov

Ага! Вручную!

Разобрался я с созданием формы. Получилось. Теперь другой вопрос на эту же тему. На форме у меня Multipage. На каждой его странице имеется набор CheckBox. Все эти CheckBox при создании добавляются в коллекцию. Как им назначить один обработчик события?
P.S. Уокенбаха скачал. Хорошая книга.
P.P.S. Этот вопрос там рассмотрен, но через дополнительный массив, а если уже есть коллекция с контролами, как им назначить событие?

[EducatedFool]

Все эти CheckBox при создании добавляются в коллекцию. Как им назначить один обработчик события?

При создании чекбоксов прописывай каждому один и тот же обработчик - например, процедуру, принимающую в качестве параметра номер вкладки Multipage и номер CheckBox.

Например, так:

for each item in collection ' коллекция, содержащая имена чекбоксов (например, "CheckBox12")
 With TempForm.CodeModule
        Line = .CountOfLines
        .InsertLines Line + 1, "Sub " & item & "_Change()"
        .InsertLines Line + 2, "ОбработчикЧекбоксов " & item
        .InsertLines Line + 3, "End Sub"
    End With
next item

А где-нибудь в коде помести следующую процедуру:

sub ОбработчикЧекбоксов (byval CheckBoxName as string)
   msgbox "изменилось состояние чекбокса " & CheckBoxName _
   " на вкладке " & TempForm.Designer.Controls("CheckBoxName").Properties("Tag") 
end sub

Свойство index вкладки Multipage можно прописывать в свойстве Tag каждого чекбокса

[viter.alex]

С этим понятно. Только вкладок у меня от 40 до 100 и на каждой от 6 до 17 CheckBox. Много обработчиков получится. Не вручную их, правда. писать, но время занимает. А в свойство Tag у меня другое записывается. Я думал может какой-нибудь хитрый метод есть, чтобы связать события контролов из определенной коллекции с обработчиком.

[EducatedFool]

Много обработчиков получится.

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

.InsertLines .CountOfLines + 1, "Sub " & item & "_Change():ОбработчикЧекбоксов " & item &  ":End Sub"

А по-другому никак... если только с использованием классов - но это делать долго.

Чем тебе не нравится метод с 1500 строками?
Получается простой и понятный код...

[viter.alex]

Сообщение от EducatedFool

…А по-другому никак... если только с использованием классов - но это делать долго…

Ключевая фраза. Я их все равно использую для WinAPI-функций, чтобы не путались в рабочем коде. Вот и события для контролов туда записать. Чекбоксы это же не все, что на вкладке находится. Там еще поля для ввода, списки, картинки. Полный фарш
Помоги, а?

[EducatedFool]

Ну, раз тебе так хочется использовать классы - пожалуйста:

(добавлено)
Я поначалу много лишнего кода написал. Сейчас убрал лишнее.

[viter.alex]

Сообщение от EducatedFool

Ну, раз тебе так хочется использовать классы - пожалуйста:

(добавлено)
Я поначалу много лишнего кода написал. Сейчас убрал лишнее.

Спасибо, вот это вещь! Репку пока не могу поставить