Änderung der Logik der Vollmachtsverwaltung im Kunden (nun können pro VM-Typ mehrere Vollmachten hinterlegt werden). Weiters wurde die GUI der Vollmachten überarbeitet

This commit is contained in:
2022-09-19 08:29:11 +02:00
parent 780d763ba4
commit 5d324634de
399 changed files with 259205 additions and 1386 deletions

View File

@@ -0,0 +1,41 @@
Imports System.ComponentModel
Imports System.Windows.Forms
Public Class MyCheckbox
Inherits CheckBox
Implements INotifyPropertyChanged
Property _value As String = ""
Property Checked_value As Boolean = False
' Protected Overrides Sub OnCheckedChanged(ByVal e As EventArgs)
' Me.Checked = Me.Checked_value
' End Sub
Private Sub MyCheckbox_Click(sender As Object, e As EventArgs) Handles Me.Click
Me.Checked = Me.Checked_value
End Sub
Public Property CheckedValue As Boolean
Get
Return Checked_value
End Get
Set(v As Boolean)
Checked_value = v
Me.Checked = Checked_value
OnPropertyChanged("CheckedValue")
End Set
End Property
Public Event PropertyChanged As PropertyChangedEventHandler _
Implements INotifyPropertyChanged.PropertyChanged
Protected Sub OnPropertyChanged(ByVal name As String)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(name))
End Sub
End Class