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

[Stalker69]

Можно ли как-нибудь создавать новые списки, кнопки, фрэймы и т.д. во время работы приложения? Или хотя бы копировать существующие.

[keks-n]

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

Dim txt As TextBox
Set txt= Me.Controls.Add("VB.TextBox", "NewID")
txt.Visible=True

[Stalker69]

Спасибо:)

[Edmundo]

А у меня не работает, говорит "Value of type string cannot be converted to System.windows.forms.control"

[tyomitch]

.net в соседнем разделе. Вам туда.

[Денис]

И такие (Edmundo) у нас уже появились...

[Amed]

Денис, какие такие?

[Денис]

Amed
Божий дар от пальца не отличают.

[Watts[]n!]

.Net - это божий дар, получается, а VB6 - палец

[Saturn.65]

Можно ли как-нибудь создавать новые списки, кнопки, фрэймы и т.д. во время работы приложения? Или хотя бы копировать существующие.

А так нельзя что ли: создать все что нужно, написать к ним код, разместить на форме и сделать visible = False. В нужный момент сделай
visible = True. И делов то.

[alibek]

Уф... Я что-то прочитал ник, как Edanmo.

[Viper]

Можно ли как-нибудь создавать новые списки, кнопки, фрэймы и т.д. во время работы приложения? Или хотя бы копировать существующие.

А так нельзя что ли: создать все что нужно, написать к ним код, разместить на форме и сделать visible = False. В нужный момент сделай
visible = True. И делов то.

Можно конечно, но представь ситуацию, когда ты изначально не знаешь, сколько контролов тебе нужно. Что ли с запасом делать будешь? Посему, массивы контролов и Load рулят!

[Saturn.65]

Можно конечно, но представь ситуацию, когда ты изначально не знаешь, сколько контролов тебе нужно. Что ли с запасом делать будешь? Посему, массивы контролов и Load рулят!

Допустим ты нашел метод, как делать контролы во время работы программы. А как ты будешь писать к ним код? Что толку от кнопки на форме без кода? Да и exe как компилировать?

[Viper]

Saturn.65, что значит нашел? Он был, есть и будет. Еще раз зацени смысл слов массив контролов и методы Load и Unload.

[Saturn.65]

Я говорю про код. Если не знаешь, что может возникнуть, то как к этому писать код? На все случаи жизни код ведь не напишешь.

[iGrok]

Я говорю про код. Если не знаешь, что может возникнуть, то как к этому писать код? На все случаи жизни код ведь не напишешь.

Если ты не знаешь, что может возникнуть - ты ничего не сможешь написать и другим методом.

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

[Viper]

Я говорю про код. Если не знаешь, что может возникнуть, то как к этому писать код? На все случаи жизни код ведь не напишешь.

Интересно, а как ты вообще код пишешь? Что ли не знаешь, что может произойти в твоей проге, она что ли сама себе высший разум? Если ты предполагаешь, что тебе могут в процессе работы программы может понадобиться добавление контролов, то наверно ты знаешь для чего и какой код будет с ними работать.

[Денис]

Saturn.65
еще раз зацени смысл: у некоторых контролов есть свойство index, если его задать, то контрол из переменной превращается в массив и в его события начинает передаваться свойство index. можно на форме сделать три кнопки. все они будут называться btnArray с индексами 0, 1, 2 и к ним будет прилинкована ОДНА процедура

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

btnArray_Click(Index as Integer)

вообрази что можно накодить с таким функционалом! а теперь представь - на форме 1 кнопка с индексом 0. при нажатии на нее ты выполняешь код

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

Load btnArray(Index + 1)
with btnArray(Index + 1)
.top = btnArray(Index ).top+btnArray(Index).height
.visible = true
end;


Все, теперь ты крут!

[Saturn.65]

Я говорю про этот вопрос:

Можно ли как-нибудь создавать новые списки, кнопки, фрэймы и т.д. во время работы приложения? Или хотя бы копировать существующие.

Хотя он мне не совсем понятен. Для интерфейса помоему будет лучше, если они уже будут. Просто если ими в данный момент нельзя пользоваться, то пусть они будут Disabled. Разве лучше, когда неожиданно появится 20 кнопок и 15 списков?

[Хакер]

[offtopic]А ведь именно таким был первый вопрос GSerg-а, заданный на форуме VBStreets.[/offtopic]

[NIC]

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

Dim txt As TextBox
Set txt= Me.Controls.Add("VB.TextBox", "NewID")
txt.Visible=True

А массив контролов как создать таким способом?

[Хакер]

Абсолютно также, как в случае работы с обычным массивом, или в любом другом случае.

[NIC]

Абсолютно также, как в случае работы с обычным массивом, или в любом другом случае.

Приведите пожалуйста пример обработки события click для масива динамически загруженых CommandButton

[Хакер]

Массив не может быть WithEvents.

[NIC]

Массив не может быть WithEvents.

Получается, что нелельзя динамически создать функциональный массив CommandButton?

[tyomitch]

Можно создать массив объектов-переходников, в каждом из которых будет WithEvents CommandButton, и которые будут дёргать твой обработчик.

[NIC]

tyomitch
Спасибо.

А можно кусок кода.А то,что-то запутался немного.

[tyomitch]

NIC, с чем конкретно возникли проблемы?

[NIC]

tyomitch
Спасибо.

А можно кусок кода.А то,что-то запутался немного.

Тёмыч спасибо.
Если использовать класс то можно и WithEvents