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

Zooflow: WIP globix

Browse Source
This commit is contained in:
Jonathan Jenne
2021-12-09 13:31:36 +01:00
parent 42db951c93
commit 39483efe4d
3 changed files with 9 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
GUIs.ZooFlow/Globix/ClassValidator.vb
View File

@@ -52,10 +52,7 @@ Public Class ClassValidator
Return False
End If
End If
End If
' ========================= COMBO BOX =========================
If oControl.Name.StartsWith("cmbSingle") Then
ElseIf oControl.Name.StartsWith("cmbSingle") Then
Dim cmbSingle As TextBox = oControl
If cmbSingle.Text = "" Then
@@ -68,9 +65,8 @@ Public Class ClassValidator
Return False
End If
End If
End If
If oControl.Name.StartsWith("cmb") Then
ElseIf oControl.Name.StartsWith("cmb") Then
Dim cmb As ComboBox = oControl
If cmb.Text = "" Then
Dim oIndexName = GetIndexName(cmb, "cmb")
@@ -82,6 +78,7 @@ Public Class ClassValidator
Return False
End If
End If
End If
' ========================= DATE PICKER =========================
@@ -159,10 +156,9 @@ Public Class ClassValidator
.AttributeValues = WrapIndexValue(oValues),
.ControlName = oLookup.Name
})
End If
' ========================= COMBO BOX =========================
If oControl.Name.StartsWith("cmbSingle") Then
ElseIf oControl.Name.StartsWith("cmbSingle") Then
Dim cmbSingle As TextBox = oControl
Dim oIndexName = GetIndexName(cmbSingle, "cmbSingle")
@@ -174,9 +170,8 @@ Public Class ClassValidator
.AttributeValues = WrapIndexValue(cmbSingle.Text),
.ControlName = cmbSingle.Name
})
End If
If oControl.Name.StartsWith("cmb") Then
ElseIf oControl.Name.StartsWith("cmb") Then
Dim cmb As ComboBox = oControl
Dim oIndexName = GetIndexName(cmb, "cmb")