Программное создание объектов

[DJScalpel]

Возникла необходимость программного создания объектов : Фреймов, текстовых полей, чекбоксов итд
В программе для оформления договора имеется некоторая форма типа анкеты,
в программе пользователь может выбрать количество человек, для которых нужно заполнить анкеты для оформления договора.

программно сделал добавление нужного количества закладок к SSTab

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

кто знает как это сделать - подскажите плз

[BV]

Me.Controls.Add("VB.имя_класса", "имя")

[DJScalpel]

Me.Controls.Add(VB.ComboBox,"test")
пишет - нужен знак =
VB6

[DJScalpel]

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

Dim hTextBox As TextBox
    Set hTextBox = Me.Controls.Add("VB.TextBox", "txtMain")
    With hTextBox
        .Move 0, 0, ScaleWidth, ScaleHeight
        .Text = "Example"
        .Visible = True
    End With

так работает

а можно как нибудь именно скопировать из одной формы в другую с переносом всех свойств?
например копировать form1.frame1(0) в form1.frame1(1)

[Хакер]

а можно как нибудь именно скопировать из одной формы в другую с переносом всех свойств?

Скопироовать - нет. Перенести можно, поменяв парента.

а можно как нибудь именно скопировать из одной формы в другую с переносом всех свойств?
например копировать form1.frame1(0) в form1.frame1(1)

Эээ... Так в другую, или всё таки в ту же самую?

[Lumen]

Если у тебя уже имеется элемент который надо добавить, то имхо лучше сделать так: Делаешь индекс у элемента 0, а затем пишешь Load Text1(n), где n >= 1 - индекс элемента управления в массиве, а затем Text1(n).Visible = true. Как раз и свойства скопируются.

[DJScalpel]

а можно как нибудь именно скопировать из одной формы в другую с переносом всех свойств?

Скопироовать - нет. Перенести можно, поменяв парента.

а можно как нибудь именно скопировать из одной формы в другую с переносом всех свойств?
например копировать form1.frame1(0) в form1.frame1(1)

Эээ... Так в другую, или всё таки в ту же самую?

смотри, анкета состоит из 4 частей ( вернее - заяление+ 3 анкеты-форма 1, форма 2, форма 3 - не путать с формой в VB - это форма приложения к заявлению) + если есть дополнительные участники договора, то дополнительно заполняются еще форма 3 по количеству дополнительных участников
у меня для удобства пользователя сделано через TABы - каждая вкладка - заявление или одна из форм, при добавлении дополнительных участников договора создается дополнительные вкладки и нужно СКОПИРОВАТЬ содержимое формы 3 в вновь создаваемые вкладки
с парентом пробовал - но что то не получилось - можешь привести пример?
например в форма1 содержит SSTab на первой вкладке воткнут Frame1, в котором и содержатся все нужные для копирования элементы

LOAD text1(1) вставляет его в первую вкладку, воткнуть во вторую например никак не выходит

Если у тебя уже имеется элемент который надо добавить, то имхо лучше сделать так: Делаешь индекс у элемента 0, а затем пишешь Load Text1(n), где n >= 1 - индекс элемента управления в массиве, а затем Text1(n).Visible = true. Как раз и свойства скопируются.

так пробовал - элемент копируется в первую закладку

[Antonariy]

Динамически связять контрол с нужной закладкой не получится. Отказывайся от SSTab в пользу TabStrip.

[DJScalpel]

Динамически связять контрол с нужной закладкой не получится. Отказывайся от SSTab в пользу TabStrip.

приведи пример, скопируй text1(0) из TabStrip первой закладки во вторую, если можно - фрейм со всем его содержимым скопировать

ЗЫ в чем преимущество TabStrip перед SSTab???

[Antonariy]

TabStrip не является контейнером; то, что контролы находятся "на закладке" - всего лишь видимость. Контролы находятся над TabStrip'ом. По клику на закладке нужно показывать соответствующую группу контролов и прятать остальное.

С ходу назову два преимущества: поддежка стилей XP и отсутствие бага при перемещении по контролам tab'ом - в SSTab фокус уходит на невидимые контролы.

[DJScalpel]

КОД в Студию

[Хакер]

Код чего? Кредитки?

[alibek]

DJScalpel, ты ничего не перепутал?

[DJScalpel]

юмористы ) насмешили
Код для VB как скопировать все контролы из Frame1(0) в Frame1(1)

[alibek]

Помедитируй над Container.
И поскольку ты явно перепутал форумы, топик закрываю.

[alibek]

По результатам переписки тему открыл.

[DJScalpel]

Итак, сам отвечу на свой же вопрос
напоминаю условие -
мне нужно было скопировать МНОГО уже имеющихся контролов ( около 100) и у каждого своя позиция, размер, значения итд итп)

ларчик просто открывался
в коллекции МСДНовских примеров есть проект AXData? так вот там используется так называемый юзер контрол

итак, я создал новый проект только не стандартный EXE а ActiveData
в нем набросал свою форму анкеты, сохранил проект, закрыл.
в основном проекте добавил свой созданный юзер контрол и все - теперь при необходимости создания копии данной формы ( юзер контрола)
причем не надо "лоад" каждый объект в отдельности, все объекты создаются в обычном порядке - взял, разместил, подвинул...

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

Load CLS_NS1(item) ' мой юзер контрол с кучей контролов
With CLS_NS1(item)
.Move 0, 0, ScaleWidth, ScaleHeight
.Visible = True
End With

подобная тема не раз поднималась на этом форуме (в поиске находил с 10 топиков и нигде такого предложения решения вопроса не было) но там решался вопрос о добавлении нескольких новых контролов, а тут можно клонировать существующую группу сколько угодно

Всем Спасибо, в том числе alibek

[Денис]

DJScalpel
Юзерконтрол хорошо... для контрола. А для группы контролов... возможны сложности с обращением к свойствам и событиям у контролов внутри.

[DJScalpel]

если указанные трудности возникнут - то скажу -пока небыло - все через индекс сделаны и в основной проге обработанны