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

[Oxygen]

Как создать элемент управления на форме во время работы программы? И как создать новую форму? Можно конечно настругать кучу объектов в массив, скрыть их и во время работы инициализировать их командами Load и Объект.Visible=true. Но это не совсем подходит - жрется много ресурсов и прога долго грузится, особенно если объектов много и объекты - это навороченные UserControl'ы или ActivX'ы.

[DiSe]

Полбзуйся Set Obj as New Form. Затем можно менять свойства нового объекта.

[Oxygen]

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

[DiSe]

В чём проблема? Делай:
'******'
ind=ind+1
Set Obj(ind) as New CommandButton
'******'

[Gatet]

В чём проблема? Делай:
'******'
ind=ind+1
Set Obj(ind) as New CommandButton
'******'

Простите, конечно но это не фига не работает. Делать нужно так:

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

Private Function AddNewButton(frm As Form, name As String)
    'Вместо VB.CommandButton можно использовать льбой контрол ВБ (см. F2)
    With frm.Controls.Add("VB.CommandButton", name)
        'здеся можно задавать любые свойства контрола
        .Left = 100
        .Top = 100
        .Visible = True
    End With
End Function