JJ 25.04
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user