отслеживание события на предке

[Immortal!]

Подскажите кто знает как мне из UserControl'a отследить нажатие кнопок мыши на родителе.

[tyomitch]

Через сабклассинг WM_COMMAND

[ANDLL]

Если родитель - гарантировано - VB форма, можно через обычные Event'ы. Наверное...

[tyomitch]

Да ну? Dim WithEvents Parent As Form, что ли?
Тогда-то циклическая ссылка точно будет

[ANDLL]

Ну почему

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

Option Explicit
Dim WithEvents mParent As VB.Form

Private Sub mParent_Click()
Beep
End Sub

Private Sub UserControl_Resize()
If mParent Is Nothing Then
    If Ambient.UserMode Then
        Set mParent = UserControl.Parent
    End If
End If
End Sub


[tyomitch]

Потому что на родителе есть ссылка на этот контрол.
И потому что в результате оба становятся неубиваемые

[ANDLL]

Так все работает. По твоему, если в объекте1 есть ссылка на объект2, и в объекте2 есть ссылка на объект1 они оба станояться неубиваемые?

[GSerg]

Да.
Если не завести процедуру ручного разрыва ссылок.

[ANDLL]

Почему? В моем воде есть процедура ручного разрыва? Если да, то где, если нет - то почему работает?

[GSerg]

Когда я делаю процедуры разрыва, я делаю их friend. Не вижу причин, по которым создатели Word сделали бы их публичными. Это раз.
Два: они могут спокойно вызывать Release, пока объект не сдохнет. Мы не можем, без предварительной подготовки.

[ANDLL]

При чем здесь Word?

[GSerg]

В моем воде

Я подумал, что это "в моём ворде".

[ANDLL]

коде.
Однако, вернемся к старой теме.

[tyomitch]

Если да, то где, если нет - то почему работает?

Работает. Не знаю, почему
Не должно...

Но это в любом случае привязка контрола к конкретному контейнеру. Даже в VB5 его уже нельзя будет юзать.

А так, похоже, приемлемый способ... Но только "нечистый" он. Того и гляди, где-нибудь что-нибудь скособочится из-за этих циклических ссыло

[GSerg]

Думается мне, дело в унаследованной реализации обработчика этого дела. Ведь у usercontrol есть свойство parent, и это не приводит к циклическим ссылкам. Вернее приводит, но есть встроенный механизм противоборства.
А вот на классах это уже не прокатит.

[tyomitch]

Думается мне, что дело не в этом, а в том, что форма не полностью управляется ссылками, а вместо этого имеет дублирующийся механизм Load/Unload и Initialize/Terminate.
Т.е. код ANDLL счётчик ссылок формы, безусловно, увеличивает, но ей это побоку - она уничтожается не когда исчезнут ссылки, а когда захочет сама
С классами это, безусловно, не прокатит. И это хорошо