Projektdateien hinzufügen.

Aviso/Benutzerdefinierte Elemente/usrcntlCheckBox.vb

@@ -0,0 +1,51 @@
+Public Class usrcntlCheckBox
+
+    Property value = ""
+    ' Public Property _beteiligter As String = ""
+    Public Property _abrArt As String = ""
+    Public Property _beteiligter As String = ""
+
+    Public Property _readOnly As Boolean = False
+
+    Event ValueChanged(value)
+    Event CLICKED(sender As usrcntlCheckBox)
+
+    Private Sub MyTextCheckBox_Click(sender As Object, e As EventArgs) Handles Me.Click, lbl.Click
+        If _readOnly Then RaiseEvent CLICKED(Me) : Exit Sub
+
+        Dim small As New Font(lbl.Font.FontFamily, 5)
+        Dim big As New Font(lbl.Font.FontFamily, 8.25)
+        Me.Font = big
+        Select Case lbl.Text
+            Case "" : lbl.Text = "X"
+            Case "X" : lbl.Text = "" ' lbl.Text = "BAR" : lbl.Font = small
+                '     Case "BAR" : lbl.Text = ""
+        End Select
+        RaiseEvent ValueChanged(value)
+    End Sub
+
+
+    Private Sub lbl_TextChanged(sender As Object, e As EventArgs) Handles lbl.TextChanged
+        If _readOnly Then Exit Sub
+
+        Dim small As New Font(lbl.Font.FontFamily, 5)
+        Dim big As New Font(lbl.Font.FontFamily, 8.25)
+
+        value = lbl.Text
+        lbl.Font = IIf(lbl.Text = "BAR", small, big)
+        lbl.BackColor = If(lbl.Text <> "", Color.SandyBrown, Color.White)
+    End Sub
+
+    Public Sub special(setValue As Boolean)
+        If setValue Then
+            lbl.BackColor = Color.SandyBrown
+            lbl.Font = New Font(Me.Font.FontFamily, 5, FontStyle.Bold)
+            'lbl.ForeColor = Color.White
+            lbl.Text = "JA"
+        Else
+            lbl.BackColor = Color.White
+            '  lbl.ForeColor = Color.Black
+            lbl.Text = ""
+        End If
+    End Sub
+End Class