MS_KW8

Global_Indexer/ClassControls.vb

@@ -0,0 +1,29 @@
+Public Class ClassControls
+    Public Shared Function AddCheckBox(indexname As String, y As Integer, vorbelegung As String, caption As String)
+        Try
+            Dim chk As New CheckBox
+            chk.Name = "chk" & indexname
+            chk.Size = New Size(100, 27)
+            chk.Location = New Point(11, y)
+
+            If caption <> "" Then
+                chk.Text = caption
+                chk.Size = New Size(CInt(caption.Length * 15), 27)
+            End If
+            If vorbelegung <> "" Then
+                If vorbelegung = "1" Or vorbelegung = "0" Then
+                    chk.Checked = CBool(vorbelegung)
+                Else
+                    chk.Checked = False
+                End If
+            Else
+                chk.Checked = False
+            End If
+            Return chk
+        Catch ex As Exception
+            ClassLogger.Add("Unhandled Exception in AddCheckBox: " & ex.Message, True)
+            Return Nothing
+        End Try
+
+    End Function
+End Class