Свойство класса - Объект

[SHURUP]

Всем доброго времени суток!
Я тута класс решил написать, что-то типа маркеров (8 квадратиков по всем сторонам и диагоналям) для изменения размеров объекта. У класса есть свойство someObject - тот контрол, который мы ресайзим, но поскольку я не знаю какой именно тип контрола будет не могу его обьявить через WhithEvents. Как мне быть???

Огромное спасибо заранее![/b]

[BOO]

Если я правильно понял (не очень толково написано! ) то ты хочешь чтобы класс "обвертывал" какой-то контрол, но незнаешь его тип. Ну а зачем нужен его тип ведь свойство Top. Left. Width. Height есть у любого объекта... Юзай объект Object.....

[xenomorph]

Может поможет - оно работает - тока что проверил .

Делаем класс:
'===========================
Option Explicit

Public Sub Main(ByRef TB As Object)

Select Case TypeName(TB) 'Это возвращает тип обекта ...

Case Is = "Timer"

Msgbox TB.Interval

Case Is = "Textbox"

Msgbox TB.Text

End Select ...

End Sub
'===========================

И вызываем из формы ...

Прикол в том, что нужно:

1) очень осторожно писать код обработки разных обектов ...
2) нету контекстной подсказки при точке . (хотя можно менять
ByRef TB As Object на ByRef TB As Timer
ByRef TB As Winsock

далее писать код, а потом поменять на обджект опять
--
Удачи

[SHURUP]

2BOO, 2xenomorph, спасибо, что не прошли мимо. Но все-же есть проблем с WithEvents, У меня в принципе объект обязательно должен обрабатывать event mouse_move.
Заранее известно, что объекты типа "Таймер, Винсокс, КомонДиалог…" не будут участвовать в класе. Только те, которых можно двивать и ресайзить в RunTime

[Konst_One]

если будешь работать только со стандартными контролами VB , то можешь заюзать объект VBControlExtender

[SHURUP]

если будешь работать только со стандартными контролами VB , то можешь заюзать объект VBControlExtender

О! вот это очень близко. Я его по F2 находил, но толком не разобрался. Инфы мало.
Как его юзать? желательно с примерчиком…

[TEH3OP]

Можно ещё субклассировать.
Тогда тебе достаточно будет Object.hwnd, а потом проверить hwnd при помощи IsWindow и всё субклассируй и обрабатывай WM_MOVE WM_PAINT и т.п....

[Gemini]

Извините это наверное глупый вопрос но обьясните мне пожалуйста что значит слово: субклассировать

[tyomitch]

Это такой неудачный термин для обозначения перехвата оконной процедуры. С классами он имеет мало общего.