Moin, Moin!
Ich habe ein Problem.
Und zwar würde ich gerne MVC-Pattern anwenden und habe dabei immer öfter das Problem,
dass ich eine Event, wie OnChange, gerne in einem Model hätte.
Dazu soll die Klasse des Model's ganz klassisch aussehen.
Mit aussnahme, dass diese von einer anderen Klasse erbt. (MyFramework.DataType.Model)
Klasse: MeinProgramm.Kunde
Klasse: MyFramework.DataType.Model
Das ganze funktioniert auch einwandfrei.
Nur ist es leider viel zu performance lastig.
Hat hier vielleicht irgend jemand eine Idee, wie ich das Problem
besser lösen kann?
Ich hoffe ich konnte einigermaßen erklären, worauf ich hinaus möchte und habe
das ganze nicht unendlich falsch im Forum positioniert und/oder betitelt.
Vielen Dank!
Ich habe ein Problem.
Und zwar würde ich gerne MVC-Pattern anwenden und habe dabei immer öfter das Problem,
dass ich eine Event, wie OnChange, gerne in einem Model hätte.
Dazu soll die Klasse des Model's ganz klassisch aussehen.
Mit aussnahme, dass diese von einer anderen Klasse erbt. (MyFramework.DataType.Model)
Klasse: MeinProgramm.Kunde
Code:
Namespace meinProgramm Class Kunde Inherits MyFramework.DataType.Model Public Property Vorname As String Public Property Nachname As String 'usw..... End Class End Namespace
Code:
Namespace MyFramework.DataType Public Class Model Inherits EventArgs Private WithEvents myTimer As New Timer Private _checkValString As String = "" Public Sub New() myTimer.Start() myTimer.Interval = 5000 End Sub ''// EVENTS Private Event OnChanged As EventHandler(Of Model) '' // Functions Private Sub checkValuesChanged(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles myTimer.Elapsed Dim _modelType As Type = Me.GetType Dim _modelPropertiesInfo() As PropertyInfo = _ _modelType.GetProperties() Dim _newCheckString As String = "" For i = 0 To _modelPropertiesInfo.Length - 1 _newCheckString = _newCheckString & _modelPropertiesInfo( _ i).GetValue(Me, Nothing) Next If _newCheckString <> _checkValString Then _checkValString = _newCheckString RaiseEvent OnChanged(New Object, Me) End If End Sub End Class End Namespace
Nur ist es leider viel zu performance lastig.
Hat hier vielleicht irgend jemand eine Idee, wie ich das Problem
besser lösen kann?
Ich hoffe ich konnte einigermaßen erklären, worauf ich hinaus möchte und habe
das ganze nicht unendlich falsch im Forum positioniert und/oder betitelt.
Vielen Dank!
Comment