Удаление Контрола из коллекции

[Саша_ОР]

Здравствуйте. Подскажите пожалуйста, как можно удалить Контрол програмно во время работы программы. Желательно, чтобы можно быдо удалять и массив Контролов.

[GSerg]

Какой именно? Добавленный в дизайне? Нельзя.

[Саша_ОР]

Какой именно? Добавленный в дизайне? Нельзя.

Неужели нет никакого способа, чтобы удалить Контрол из коллекции, например, удалить Command1(0)...

[alibek]

Выгружать в рантайме можно только то, что создавалось в рантайме.

[GSerg]

Ещё раз.
Добавленные в дизайне нельзя. Остальные можно.

[Amed]

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

Зачем вообще удалять контрол?

[Gotha]

короче любому контролу можно присвоить индекс, после чего он получает способность к размножению.. самый изначальный контрол из которого рождаются остальные умертвить нельзя, а вобще те которые можно удалить удаляются с помощью Unload Command1(1,2,3 и т.д.) и загружаются соответственно Load Command1(1,2,3 и т.д.) (это если допустим Command1(0) был "папой" всех наследуемых)

[alibek]

Gotha, и к чему ты это сказал? Чтобы доказать, что топик не читал?

[Саша_ОР]

короче любому контролу можно присвоить индекс, после чего он получает способность к размножению.. самый изначальный контрол из которого рождаются остальные умертвить нельзя, а вобще те которые можно удалить удаляются с помощью Unload Command1(1,2,3 и т.д.) и загружаются соответственно Load Command1(1,2,3 и т.д.) (это если допустим Command1(0) был "папой" всех наследуемых)

Команда Load работает, но команда Unload ругается и говорит, что нельзя удалить Контрол, созданный во время проектирования. А как же быть, если Контрол мешает, грузит программу и процессор и от него нужно избавиться?

[GSerg]

Значит нужно надавать себе по рукам и перепроектировать программу.

[Саша_ОР]

Прошу прощения. Он заругался, что я удалил созданный во время проектирования Контрол, а так все работает. Всем большое спасибо!!!

[Gotha]

alibek шибко звиняюсь, но так хотелось написать) просто форум хороший, вот сижу все читаю) и хочется активно участвовать)

[GSerg]

Активно участвовать чтением - это поначалу самое замечательное и правильное (да, Gotha, именно этим поначалу долго занимался я).
Активно участвовать постингами полезно и правильно на той стадии, когда можешь уверенно отличить глупый постинг от неглупого. Иначе, дабы постинг не направил кого-либо по ложному пути, придётся придти нам всем таким злым и спросить - Gotha, а почему ты опять сказал глупость? И будет опять смайлик

Вот, чё-то потянуло меня на рассуждения о высоких материях под утро...

[keks-n]

Вообще в Run-time надо создавать контрoлы так:

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

Option Explicit
Private WithEvents btn As CommandButton

Private Sub Form_Load()
Set btn = Me.Controls.Add("VB.CommandButton", "Command1")
btn.Visible = True
btn.Caption = "Кнопка, созданная в рантайме"
btn.Width = 3000
End Sub

Private Sub btn_Click()
MsgBox "Вы кликнули по кнопке, ссылка на которую лежит в переменой btn", , ""
End Sub

И никаких проблем с выгрузкой.

[Роман-вб]

Судя по названию темы "Удаление Контрола из коллекции", ответ такой:
Dim a As New Collection
a.add т..т.т.т
a.Remove т..тт..т

[Amed]

Роман-вб, нет. Имеется в виду "системная" коллекция Controls, в которой находятся все контролы на форме.