Возможно, если Control связан с ДБ через DataSource, то VB не может их выгрузить. Попробуй сделать

Set Control.DataSource = Nothing

Ответить

Точно не связан. Хотя кто знает

Ответить

Я так понял, ты сначала грузишь контролы командой Load, а затем по мере необходимости их выгружаешь командой Unload.
Тогда попробуй вместе с контролами создавть и командную кнопку и через нее выгружать, например:

Dim WithEvents cmdSub As CommandButton
Load cmdSub

Private cmdSub_Click()
Unload Text(1)
End Sub

И используй их отдельные Sub'ы

Ответить

Хм. Неплохая идея. Надо будет попробовать.

Хотя наверное...

У меня считывается файл, затем вызывается процедура

его обработки, а из неё уже процедура выгрузки массива

контролов. Как это совместить ?

Ответить

Создай отдельный Класс по работе с файлами и зарегистрируй в нем CommandButton:

Dim WithEvents cmdUnloadAll As CommandButton
Public Event UnloadAll()

Sub RegisterControl(ByRef cmd As CommandButton)
Set cmdUnloadAll = cmd
End Sub

Private Sub cmdUnloadAll_Click()
RaiseEvent UnloadAll()
End Sub

А в форме этот класс определи WithEvents и по событию UnloadAll выгрузы необходимые Контролы.

Ответить

Да как класс с событием контрола создавать я знаю.

Я имел ввиду в моей ситуации.

Ответить

Да в том-то и дело, что я ни как не могу понять постановку задачи.
Представляю это так:
Есть Форма, на которой динамически создаются Контролы.
А за тем, при возникновении некоторого события, должны быть динамически выгружены.
При чем, если при нажатии некоторой кнопки в ее обработчик события Click включить Unload, то все работает. Если же, стек вызова процедур внутри формы содержит более одного, то Vb начинает генерить ошибку.
Поэтому я и предложил создать отдельный класс, в котором может происходить, что угодно, но по некоторому событию, внутри класса генерируется событие, которое обрабатывается в нутри формы.

Ответить

Ответить

Спасибо.

Сам нашёл в VB5.HLP

Unable to unload within this context (Error 365)

In some situations you are not allowed to unload a form or a control on a form. This error has the following causes and solutions:

· There is an Unload statement in the Paint event for the form or for a control on the form that has the Paint event.

Remove the Unload statement from the Paint event.

· There is an Unload statement in the Change, Click, or DropDown events of a ComboBox.

Remove the Unload statement from the event.

· There is an Unload statement in the Scroll event of an HScrollBar or VScrollBar control.

Remove the Unload statement from the event.

· There is an Unload statement in the Resize event of a Data, Form, MDIForm, or PictureBox control.

Remove the Unload statement from the event.

· There is an Unload statement in the Resize event of an MDIForm that is trying to unload an MDI child form.

Remove the Unload statement from the event.

· There is an Unload statement in the RePosition or Validate event of a Data control.

Remove the Unload statement from the event.

· There is an Unload statement in the ObjectMove event of an OLE Container control.

Remove the Unload statement from the event.

Ответить

Мне кажется, что все зависит от способа загрузки контролов.
Способ1. <Form>.Controls.Add ....., сдесь однозначно возникат ошибки которые ты сдесь описал.
Способ2. На форме создается Контрол например с Index = 0, тогда можно на форме создавать контролы примерно так:
Load <ControlName>1) и т.д.

При этом соэдается точная копия контрола с индексом 0.
Остается только сместить его в нужное место и указать Visible=True. так вот, эти контролы выгружаются при любых условиях (по крайней мере я так думаю).

Ответить

Это не верно.

И хватит на этом. Я уже нашёл причину ошибки.

Она описана выше.

В некоторых событиях контролов невозможно выгрузить

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

Может моё мнение тоже не верно, но я считаю что слово

"контект" тут не спроста. Скорее всего что-то связанное с

перерисовкой объекта.

Ответить