ВзаимоНЕпонимание частей проекта.

[DiSe]

В моём ActiveX проекте есть UserControl и модуль. В модуле функции. А вызываю эти функции я из программного кода UserControl. Есть одна функция в модуле, в которой мне надо установить одно из свойств UserСontrol'а. Но при компиляции мне пишет, что не знает никакого UserControla. В общем мне нужна помощь. Контрол здесь.

[GSerg]

Не, вот красавец, а?
Имеет модуль, в котором сабклассинг, и из функции сабклассинга пытается изменить свойства данного экземпляра UserControl, не указывая, какого именно экземпляра! Если в процедуре сабклассинга прописать UserControl.BackColor=X, то каким образом, скажи мне, процедура сабклассинга узнает, какой именно из всех экземпляров юзерконтрола ты имеешь в виду? Выражение "UserControl" для неё - пустой звук! Оно имеет смысл только в одном месте - в коде юзерконтрола. Так что ищи способ передавать в процедуру сабклассинга объектную ссылку на вызывающий экземпляр юзерконтрола.

[DiSe]

Я не очень хорошо разбираюсь в ActiveX, поэтому не могу представить как это сделать. Если не трудно, можешь написать (хотябы основное) код. Заранее благодарен.

[GSerg]

Ну не знаю...
Например, можно создать массив юзерского типа:

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

type MyType
  hwnd as long
  mycontrol as control
end type

dim myreferences(1 to 5) as mytype


Вот, а потом для каждого твоего контрола на форме делать

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

myreferences(1).hwnd=mycontrol.hwnd
set myreferences(1).mycontrol=mycontrol


Вот.
Массив этот будет объявлен на уровне модуля. Соответственно, твоя процедура сабклассинга, получив параметр hwnd, должна будет позырить в массив myreferences и найти там такой mycontrol, у которого данный hwnd, и спокойно обращаться к нему через

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

myreferences(N).mycontrol.myproperty=myvalue.

[DiSe]

Не работает! Не знаю почему? Можешь сразу код? А то я вообще не въехал в то, что ты написал.[/b]

[GSerg]

НИЗЯ ставить процедуру сабклассинга в инициализацию, потому что контрола ещё нет!

[DiSe]

Не работает. Ты у себя пробовал? Вызывал PopUpMenu на компоненте? Цвет не меняется.

[GSerg]

DiSe!
Давай так: я тебе говорою направление, а ты думаешь туда сам. Так оно лучше, поверь мне.
Направление:

1. События MouseDown и MouseUp у твоей кнопки не возникают, потому что не замаплены оригинальные MouseDown и MouseUp.
2. Вызов меню должен быть определён в самом коде контрола, то есть ты должен предоставить юзеру процедуру RBut.PopupMenu. Иначе не твоя кнопка будет владельцем меню, и не она будет получать от него сообщения.

[DiSe]

Насчёт MouseDown и Up - у меня есть Click. А метод PopupMenu я делал в коде UsукControl, но при обращении RBut1.PopupMenu <имя> ничего не получается, говорит, что типа PopupMenu - failed.

[GSerg]

Насчёт MouseDown и Up - у меня есть Click.

Тогда зачем у твоей кнопки есть доступные юзеру события MouseUp и MouseDown? Они же никогда не происходят. Либо замапь их, либо убери.
А что касается меню - всё правильно. Я же говоррю - даю направление, а ты думай... но раз не хочешь думать и пробовать (:(), скажу, что меню принадлежит не контролу, а форме, поэтому вызывать его нужно из кода юзерконтрола как usercontrol.popupmenu parent.menuname