AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Allow checkboxes to be required

Browse Source
This commit is contained in:
Jonathan Jenne 2021-11-03 15:13:21 +01:00
parent 3cd2bad3fa
commit a78845f02d
1 changed files with 310 additions and 296 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -3214,8 +3214,7 @@ Public Class frmValidator
Exit Select Exit Select
Else Else
LOGGER.Debug("No Default Value for Checkbox - so using false!") LOGGER.Debug("No Default Value for Checkbox - so using false!")
myCheckBox.Checked = False myCheckBox.CheckState = CheckState.Indeterminate
myCheckBox.CheckState = CheckState.Unchecked
End If End If
@ -4616,6 +4615,7 @@ Public Class frmValidator
End Try End Try
Case "System.Windows.Forms.DateTimePicker" Case "System.Windows.Forms.DateTimePicker"
Try
Dim dtp As DateTimePicker = oControl Dim dtp As DateTimePicker = oControl
'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
If oIsRequired = True And dtp.Value.ToString = String.Empty Then If oIsRequired = True And dtp.Value.ToString = String.Empty Then
@ -4684,7 +4684,12 @@ Public Class frmValidator
Else Else
LOGGER.Debug("DateValue is 01.01.0001 00:00:00") LOGGER.Debug("DateValue is 01.01.0001 00:00:00")
End If End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
Case "System.Windows.Forms.CheckBox" Case "System.Windows.Forms.CheckBox"
Try
Dim chk As CheckBox = oControl Dim chk As CheckBox = oControl
oMyInput = chk.Checked.ToString oMyInput = chk.Checked.ToString
@ -4775,10 +4780,12 @@ Public Class frmValidator
End If End If
End If End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
Case "System.Windows.Forms.DataGridView" Case "System.Windows.Forms.DataGridView"
Try
Dim dgv As DataGridView = oControl Dim dgv As DataGridView = oControl
Dim Zeilen As Integer = 0 Dim Zeilen As Integer = 0
@ -4854,8 +4861,12 @@ Public Class frmValidator
End If End If
'Jetzt die Datei indexieren 'Jetzt die Datei indexieren
End If End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
Case "DevExpress.XtraGrid.GridControl" Case "DevExpress.XtraGrid.GridControl"
Try
Dim dgv As GridControl = oControl Dim dgv As GridControl = oControl
Dim oRowCount As Integer = dgv.DataSource.Rows.Count Dim oRowCount As Integer = dgv.DataSource.Rows.Count
@ -4971,6 +4982,9 @@ Public Class frmValidator
End If End If
End If End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Select End Select
End If 'End If für Control und ReadOnly = False End If 'End If für Control und ReadOnly = False
Next Next