Очень сложный вопрос...

[A.Lazarev]

Почему после размещения нескольких мульти^form'енных ActiveX компонентов в формы (!)любого из них пишутся значения (!)последнего ActiveX... Неужели никто не делал UserCOntrol'ы с дополнительными формами на которых оражались свойства этого компонента...

[tyomitch]

"Форма" - это, я так понимаю, Property Page?

[A.Lazarev]

Т.е. смысл как раз в том и есть что кроме UserControl и PropertyPage в проекте присутствует ещё обычная Form.

[tyomitch]

Ух ты как... Нет, я так никогда не делал.

[A.Lazarev]

Всё равно спасибо, за интерес

[A.Lazarev]

to tyomitch: а ты делал многоконные (не считая PropertyPage) ActiveX компоненты, если да то как...

[tyomitch]

Нет, я даже однооконных (не считая PropertyPage) не делал.

[Sebas]

может ты обращаешься к форме напрямую без создания нового объекта?

[A.Lazarev]

to Sebas: а по подробней пожалуйста... я пишу примерно так
MainW.Text2.Text = variable (MainW соответственно форма)

[alibek]

Set FormIns = New MainW
Load FormIns
FormIns.Text2.Text = ...
...
Unload FormIns
Set FormIns = Nothing

[A.Lazarev]

to alibek: т.е. нужно создать ещё дополнительный модуль в которм объявить FormIns as Object ... и делать её Public так как Load - делается в UserControl а Unload в MainW ... ? Или по другому как то ?

[A.Lazarev]

to alibek:
Dim FormIns As Variant
Set FormIns = New MainW
Load FormIns
FormIns.Show 1
FormIns.Text2.Text = "hello"
Hello почему то не выводит...

[alibek]

Ну а ты что думал, когда показывал ее модальной? Это во-первых. А во-вторых, лучше объявляй как Form, а не Variant.

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

Dim FormIns As Form
Set FormIns = New MainW
Load FormIns
FormIns.Text2.Text = "hello"
FormIns.Show 1


[A.Lazarev]

to alibek: ActiveX позволяет показвать только модальные окна...

[alibek]

Так и показывай модальные. Только вот все изменения делай до того, как это окно покажешь.

[A.Lazarev]

to alibek: слушай... ну ты шайтан... однако.. все работает...
Слушай а может быть ты ещё подскажешь как из MainW в UserControl достучаться т.е. обявить в UserControl Public Function MessHello() ...
а потом из MainW как нить её вызвать... или каким нибудь другим способом это сделать..

[alibek]

Насчет шаманства, это к нашему Шаману А шайтанов не знаю, не водится тут таких.

Так и сделай. Когда будешь открывать форму, передавай (в переменную или в Tag показываемой формы) имя контрола (Extender.Name), а уже в форме делай CallByName Controls(ControlName), "MessHello".

[A.Lazarev]

Всё сделал как ты сказал
CallByName Controls(mes), "MessHello", VbMethod
в mes - имя контрола
Wizard' ом объявил метод MessHello
и всё равно пишет ошибку мол объект не поддерживает данный property или method ...