Hi,
das Ziel ist, dass ein SenderObjekt einen Wert an ein EmpfängerObjekt übergeben soll.
Mein Versuch war folgender
an der Stelle mit Fragezeichen brauche ich den Wert aus dem SenderObjekt. Ähnlich wie beim Event Mous.Move
Bin gerade noch mit den ganzen Beschreibungen aus der msdn Hilfe überfordert. Delegates, EventKlassen etc
Danke Gruß
Brichun
das Ziel ist, dass ein SenderObjekt einen Wert an ein EmpfängerObjekt übergeben soll.
Mein Versuch war folgender
VB.NET-Quellcode
- Public Class Sender
- Dim prozent As Integer
- Public Event WeitergabeProzent(ByVal Werta As Integer) 'Eventdeklaration
- Public Sub New()'Konstruktor
- prozent = 0
- End Sub
- Public Sub berechne_prozent(ByVal Wert As Integer)
- prozent = Wert
- RaiseEvent WeitergabeProzent(Wert) 'Eventtrigger
- End Sub
- End Class
- Public Class Empfänger
- Dim RahmenWidth As Integer
- Dim FortschrittWidth As Integer
- Private WithEvents Weitergabe As Sender'Event bekanntgabe
- Public Sub New(ByVal Breite As Integer) 'Konstruktor
- RahmenWidth = Breite
- FortschrittWidth = 0
- End Sub
- Sub bereche_Panelgröße(ByVal prozent As Integer)
- FortschrittWidth = RahmenWidth / prozent
- End Sub
- Function FortschrittWeite()
- FortschrittWeite = FortschrittWidth
- End Function
- Private Sub berechne_Panelgröße(ByVal Werta As Integer) Handles Weitergabe.WeitergabeProzent 'Handle
- FortschrittWidth = RahmenWidth / Werta
- End Sub
- End Class
an der Stelle mit Fragezeichen brauche ich den Wert aus dem SenderObjekt. Ähnlich wie beim Event Mous.Move
Bin gerade noch mit den ganzen Beschreibungen aus der msdn Hilfe überfordert. Delegates, EventKlassen etc
Danke Gruß
Brichun
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „brichun“ ()