Пользовательские объекты и события

[Grif-2009]

Доброго времени суток уважаемые участники форума!
Помогите пожалуйста новичку, не могу решить проблемку - нужно создавать свои объекты со своими событиями, предлагаю пример задачки ... что здесь не так?

1) Создан модуль - TestModule
который содержит код:

Option Explicit
Public Sub Test()
Dim TestValue As Object
Set TestValue = New My_Class
TestValue.SomeInput = "Test Input"
TestValue.AnyMet
End Sub

2) Создан класс модуль - My_Class
который содержит код:

Option Explicit

'задача проекта отработать создание и вызов собитий
Public Event SomeThing() 'объявление события
Dim SomeValue As String ' декоративная переменная

Public Property Get SomeOutput() As String
MsgBox (SomeValue)
End Property

Public Property Let SomeInput(ByVal vNewValue As String)
SomeValue = vNewValue
End Property

Public Sub AnyMet()
MsgBox (SomeValue & " " & Chr(13) & "попытка работы с событием")
RaiseEvent SomeThing
End Sub

3) Создан класс модуль - My_Event_Hunter
который содержит код:

Public WithEvents AnyValue As My_Class
Private Sub AnyValue_SomeThing()
MsgBox ("Поучилось!!!")
End Sub

Private Sub Class_Initialize()
Set YMis = New My_Class
End Sub

..... Вопрос - Почему не удается обработать событие?

[Grif-2009]

Прошу прощения последний блок выглядит так:

Public WithEvents AnyValue As My_Class


Private Sub AnyValue_SomeThing()
MsgBox ("Получилось!!!")
End Sub

Private Sub Class_Initialize()
Set AnyValue = New My_Class
End Sub

... событие не удаётся обработать

[EducatedFool]

Вы бы файл Excel со всем этим кодом прикрепили - мы бы уже посказали, в чем проблема.

Найти проблему несложно - а вот создание файла с кодом требует времени

[Grif-2009]

Прошу прощения ... прилагаю файл.

[doober]

Где-то так должно работать,писал в блокноте
My_Class

 Public Event SomeThing() 
 Dim SomeValue As String ' 

 Public Property Get SomeOutput() As String
 MsgBox (SomeValue)
 End Property

 Public Property Let SomeInput(ByVal vNewValue As String)
 SomeValue = vNewValue
 End Property

 Public Sub AnyMet()
MsgBox (SomeValue & " " & Chr(13) & "попытка работы с событием")
 RaiseEvent SomeThing
 End Sub

My_Event_Hunter

Public WithEvents AnyValue As My_Class
 Private Sub AnyValue_SomeThing()
MsgBox ("Получилось!!!")
 End Sub

 Private Sub Class_Initialize()
 Set AnyValue = New My_Class
 End Sub
Public Sub Test(SomeInput As String)
 Dim TestValue As Object
 Set TestValue = New My_Class
 AnyValue.SomeInput = SomeInput
 AnyValue.AnyMet
 End Sub

TestModule

 Public Sub Test()
 Dim TestValue As My_Event_Hunter
 Set TestValue = New My_Event_Hunter
 TestValue.Test "Test Input"
 End Sub

[Казанский]

Пробуйте, см. каменты

[Grif-2009]

Здорово !!!
Спасибо большое, работают оба варианта
Немного разный подход, но цель достигнута ... теперь буду разбираться

Ещё раз огромное спасибо !!!

[Hugo121]

Простой пример классов есть тут
http://www.firststeps.ru/vba/excel/r.php?20

[Grif-2009]

Сообщение от Hugo121

Простой пример классов есть тут
http://www.firststeps.ru/vba/excel/r.php?20

Спасибо за предложение, посмотрел ссылку, но ссылка не раскрыла сути вопроса, сложность возникла не при создании класса, а при генерации классом события с последующим его перехватом ... возможно ответ был на последующих страницах ....

На сам вопрос ответ мне больше понравился у Казанского, он более ... гибкий что ли и не перекрывает основной класс классом обработки событий.