This commit is contained in:
JenneJ
2016-04-25 16:16:37 +02:00
parent 944dcd330a
commit 0b6da26fd8
6 changed files with 98 additions and 6 deletions

View File

@@ -25,6 +25,9 @@ Public Class ClassControlBuilder
End Property
' +++ RecordChanged Event +++
Public WatchRecordChanges As Boolean = True
Public Custom Event OnRecordChanged As EventHandler
AddHandler(value As EventHandler)
Me.Events.AddHandler(_onRecordChangedName, value)
@@ -59,7 +62,7 @@ Public Class ClassControlBuilder
Public Sub RecordChanged(sender As Object, ByVal e As EventArgs)
Dim onRecordChangedHandler As EventHandler = CType(Me.Events(_onRecordChangedName), EventHandler)
If (onRecordChangedHandler IsNot Nothing) Then
If (onRecordChangedHandler IsNot Nothing And WatchRecordChanges) Then
Console.WriteLine("RecordChanged")
onRecordChangedHandler.Invoke(sender, e)
End If