none
Events werden nicht behandelt RRS feed

  • Frage

  • In diesem kleinen Projekt soll die Klasse download ein Event auslösen, das in der Form frmmain behandelt wird.

    Die Msgbox mit der Nachricht "Klasse aufgerufen" erscheint, aber das Event wird in frmmain nicht behandelt. Ich finde keinen Fehler ...

    main.vb

    Public Class frmmain
        Dim obj As download
        Public WithEvents download As New download
        Sub msg(ByVal x As Integer) Handles download.updatedl
            MsgBox(x)
        End Sub
    End Class

    download.vb

    Public Class download
        Public Event updatedl(ByVal x As Integer)
        Sub New()
            MsgBox("Klasse aufgerufen")
            RaiseEvent updatedl(10)
        End Sub
    End Class


    Montag, 1. Januar 2007 15:58

Antworten

  • Hallo,

     

    hatte gleiches Problem. Lösung:

     

    Public Class frmmain

    ...

    Private Sub frmmain_load(...

    ...

    AddHandler download.updateI, AddressOf msg

    ...

     

    Gruß, Pl_79er

     

     

    Freitag, 5. Dezember 2008 19:26