Hi!
Kann mir jemand sagen wieso das Event nicht feuert?!?
Spoiler anzeigen
Kann mir jemand sagen wieso das Event nicht feuert?!?
VB.NET-Quellcode
-
- Imports System.Console
- Public Interface IGeo
- Function Flaeche() As Single
- Function Umfang() As Single
- End Interface
- Public Class Kreis
- Implements IGeo
- Private m_radius As Single
- Private m_durchmesser As Single
- Public Event Fehler_CreateNew(sender As Kreis, Fehlermeldung As String)
- Public Sub New(Radius As Single)
- If Radius > 0 Then
- m_radius = Radius
- m_durchmesser = Radius * 2
- Else
- RaiseEvent Fehler_CreateNew(Me, "Ungültiger Wert für ""Radius"".")
- End If
- End Sub
- Public ReadOnly Property Radius() As Single
- Get
- Radius = m_radius
- End Get
- End Property
- Public Function Durchmesser() As Single
- Durchmesser = m_durchmesser
- End Function
- Public Function Flaeche() As Single Implements IGeo.Flaeche
- Flaeche = m_radius * m_radius * Math.PI
- End Function
- Public Function Umfang() As Single Implements IGeo.Umfang
- Umfang = 2 * m_radius * Math.PI
- End Function
- End Class
- Public Class Test
- Private Shared WithEvents k As Kreis
- Shared Sub Main()
- Dim g As IGeo
- k = New Kreis(-3.0)
- g = k
- WriteLine("Der Kreis hat die Fläche: {0}", g.Flaeche)
- WriteLine("Der Kreis hat den Umfang: {0}", g.Umfang)
- WriteLine()
- ReadLine()
- End Sub
- Private Shared Sub Fehlermeldung(sender As IGeo, Fehlermeldung As String) Handles k.Fehler_CreateNew
- WriteLine(Fehlermeldung)
- End Sub
- End Class