Form.contrtols.add ...

[ANDLL]

Такая ситуация...
Создаем project1 типа ActiveXControl с элементом управления UserControl1. Добавляем в код контрола следующее:

Public Sub Sub1()
Beep
End Sub

компилируем и закрываем.

Далее создаем Project2 типа StandardEXE с формой Form2.
В коде формы пишем:

Private Sub Form_Load()
Form2.Controls.Add "Project1.UserControl1", "Control1"
'Здесь ошибки не возникает...
Form2.Controls("Control1").sub1
'А здесь Object doesn't support this property or method(!)
End Sub

Если в project2 добавить ссылку(через Ctrl+T) на Project1 ошибка изчезает
Что это значит и как с ним бороться

Заранее спасибо

[A.A.Z.]

Не знаю... Всё работает!

[ANDLL]

Видимо A.A.Z. чего-то недопонял...

Просто компилируем project1, затем запускаем project2(который находится в другой папкке). При этом ссылку на project1 в project2 нету.

И что все работает???

Слабо верится, ибо у себя проверял несколько раз...

[A.A.Z.]

Да! Чесслово!

[A.A.Z.]

Ты его в "компоненты" добавил?

[ANDLL]

В какие "компоненты"
В системе компонент зарегистрирован, но в спсике Ctrl+T(Components) project1 не отмечен.

Насколько я понимаю используя механизи динамического (с использованием метода Form.Controls.Add) создания элементов ссылка на этот элемент на этапе разработки необязательна.

Кстати, элемент добавляется на форму, даже при отсутсвии ссылки. Проблемы возникают именно при обращении к нестандартному методу Sub1().

По-моему это какой-то глюк в VB

[A.A.Z.]

Не знаю. Когда галочка в Project->Components стоит, всё ОК, а когда нет - возникает ошибка там, где было сказано...

[ANDLL]

Хорошо..................

Как можно динамически добавить контрол на форму???

Неужели нет никакого способа добавить контрол, зная его CLSID???

Очень слабо верится

Заранее спасибо

[ANDLL]

Я понял!!!
Как говорится лучше поздно, чем никогда
Итак:

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

Form2.Controls("Control1").object.sub1


Так, может кому понадобиться...