Public Mustinherit Class AbstractEventArgs
Inherits EventArgs
#Region "Konstruktoren"
Protected Sub New(ByVal Context As ourSpeciaEnum)
mSpecial = Context
End Sub
#End Region
#Region "Membervariablen"
Private mSpecial As ourSpeciaEnum
#End Region
#Region "Properties"
Public ReadOnly Property Context() As OurSpecialEnum
Get
Return mContext
End Get
End Property
#End Region
End Class
Public Class ViewerClosedEventArgs
Inherits AbstractEventArgs
Private Sub New()
'never called
MyBase.New(enumUnknown)
End Sub
Public Sub New(ByVal Context As ourSpeciaEnum)
MyBase.New(Context)
End Sub
'more properties here ....
End Class
Heiko said:There's a Sub New in the EventArgs, from which my abstract class "AbstractEventArgs" inherits. Should have mentioned that I suppose