' ---- BildEventArgs.vb ---
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
 
 
...
 
' --- in allen MDI-Childforms
 
Public Event ZeigeBild(ByVal sender As Object, ByVal e As BildEventArgs)
 
...
 
' Hier soll das Bild gezeigt werden:
RaiseEvent ZeigeBild(Me, New BildEventArgs(DasBildObjekz))
 
...
 
 
' --- im MDI Parent ---
' Im MDI-Parent erstellst du einen Ereignishandler
 
Private Sub OnZeigeBild(ByVal sender As Object, ByVal e As BildEventArgs)
    ' Hier kann das Bild gezeigt werden
End Sub
 
...
 
' Beim zeigen der Childforms das Event registrieren:
AddHandler m_child.ZeigeBild, AddressOf OnZeigeBild

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

Beitrag wurde zuletzt am 20.01.09 um 12:06:09 editiert.