Public Class BildEventArgs
    Inherits EventArgs
 
    Private m_pic As Image
 
    Public Sub New(pic As Image)
        m_pic = pic
    End Sub
 
    Public ReadOnly Property Picture As Image
        Get
            Return m_pic
        End Get
    End Property
End Class

Public Event ZeigeBild(ByVal sender As Object, ByVal e As BildEventArgs)

RaiseEvent ZeigeBild(Me, New BildEventArgs(DasBildObjekt))

Private Sub OnZeigeBild(ByVal sender As Object, ByVal e As BildEventArgs)
    ' Hier kann das Bild gezeigt werden
End Sub

AddHandler m_child.ZeigeBild, AddressOf OnZeigeBild

Dim m_child As MDIChild1

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

Beitrag wurde zuletzt am 20.01.09 um 12:58:18 editiert.