Вопрос по ActiveX (знаю,что есть отдельный форум,но суховат)

[vik]

Для начала прошу извенения что здесь, знаю ,что есть отдельный форум, но очень суховат, а мне очень нужно и как можно быстрее.
Зарание всем спасибо.
Вопрос:
Есть ActiveX с объектом. Сама форма , которая в ActiveX невидима (Form1.Visible=False).
в своей проге вызываю массив этих ActiveX-ов, но почему-то у меня на экране появляется целая куча сереньких квадратиков, при вызове массива. Такое впечатление что Visible=False действует только на первый эллемент массива , да и то не всегда.
Что делать?
И второй вопрос (извените если глупый) , но может есть способ передать данные из ActiveX?
Например передать string из ActiveX в функцию которая находится в проге ?

[Cyrax]

что я первый вопрос не понял. поточнее сформулируй.

а на счет передачи данных из Activex, так это посредством свойств объекта. создаешь в контроле свойство и делай с ним чё хошь... хошь в функции передавай, а хошь на хлеб намазывай (шутка...)

[vik]

Насчет второго вопроса если можно пример, пожалуйста.
Вообще то уменя вActivex сидит обычный контроль MSComm? Поэтому не могу обозначить свойства которые к нему не имеют отношения (только его же свойства) .С этим всё нормально, работает. Но мне еще по мимо этого нужно передавать данные не имеющие отношения к MSComm. Например сообщения которые посылаются в функцию

А насчет первого мне нужен Activex но невидемый без формы .
У меня есть Activex с MSComm. Но видеть мне его не надо , а у меня получается что на экране видна форма на которой стоит этот MSComm.
Просто серый квадратик. Form1.Visible=False в самом Activex не действует , или частично (только на один Activex из 16 существующих в массиве и вызываемых в проге).

[skiperski]

1. У ActiveX есть св-во InvisibleAtRuntime. Установи его в True и будет тебе счастье.

2. Создай собственное св-во

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

Private msMyProperty As String

Public Property Get MyProperty As String
    MyProperty = msMyProperty
End Property

ActiveX объект в нужном месте инициализирует переменную msMyProperty, а головная программа в нужном месте вычитывает значение из св-ва myActiveX.MyProperty

[Cyrax]

еще вот тут посмотри. 10 не плохих уроков по созданию Activex Controls.

[vik]

1. У ActiveX есть св-во InvisibleAtRuntime. Установи его в True и будет тебе счастье.

Извените пожалуйста, но у меня не User control а простой ActiveX:oops:

[skiperski]

При разработке ActiveX активируй форму и смотри в окне Properties (F4)

[vik]

Ни чего не получается у меня не ActiveX Control а простой ActiveX exe .
ActiveX Control для моих целей не подходит

[skiperski]

Тогда просто при создании массива контролов попробуй их просто скрывать .Visible = False

[vik]

Не получается. Не возможно выставить свойства которых не существует.
Может есть ещё какое нибудь решение? Очень Нужно, пожалуйста.

[skiperski]

Не получается. Не возможно выставить свойства которых не существует.

Ну так создай это свойство.

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

Public Proprty Get Visible As Boolean
    Visible = Me.Visible
End Property

Public Proprty Let Visible(ByVal newValue As Boolean)
    Me.Visible = newValue
End Property