Как отследить событие класса для всех форм

Vw
Дата: 05.05.2006 14:40:43
те есть класс типа :


Public Class Styles
    Public Shared Event StyleAppChanged(ByVal style As Boolean)
    Public Shared WriteOnly Property Style() As Boolean
        Set(ByVal value As Boolean)
            RaiseEvent StyleAppChanged(value)
        End Set
    End Property

и событие Event StyleAppChanged должно отслеживаться в любой подготовленной для него форме...

знасим значение в Styles.style в одной форме
и ловим его по событию класса в другой
Private Sub Chstyles(ByVal style As Boolean) Handles styles.StyleAppChanged
MsgBox(style)
End Sub
что-то не разберусь
Лиман Артём
Дата: 05.05.2006 15:31:38
а что не получается то?
_______________________________________________________
Never ask users what they want, or they'll tell you.
Картинка с другого сайта.
Vw
Дата: 05.05.2006 16:04:14
в первой форме ставлю
Dim styles As Styles 
  styles.Style = True

а во фторой :
Private Sub Chstyles(ByVal style As Boolean) Handles styles.StyleAppChanged

MsgBox(style)
End Sub
и не ловит!
Лиман Артём
Дата: 05.05.2006 17:55:15
Тогда такой вопрос: а инстанс второй формы присутствует?
_______________________________________________________
Never ask users what they want, or they'll tell you.
Картинка с другого сайта.
Лиман Артём
Дата: 05.05.2006 18:02:07
кстати попробавал у себя - всё отлично работает...

_______________________________________________________
Never ask users what they want, or they'll tell you.
Картинка с другого сайта.
Vw
Дата: 06.05.2006 09:26:17
Вот так работает
Public Class MyStyles
    Public Shared Event StyleAppChanged As EventHandler

    Public Shared WriteOnly Property NewStyle() As Boolean
       
        Set(ByVal value As Boolean)

            RaiseEvent StyleAppChanged(value, EventArgs.Empty)
        End Set
    End Property
End Class

'в форме

    Private Sub Frm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       AddHandler MyStyles.StyleAppChanged, AddressOf Chstyles
    End Sub

    Sub Chstyles(ByVal sender As Object, ByVal arg As EventArgs) 'везде где есть TabCtl 
'code
    End Sub