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

JJ 20.04.2016

Browse Source
This commit is contained in:
JenneJ
2016-04-20 17:14:49 +02:00
parent c9fc63e237
commit b13468f42c
6 changed files with 60 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@@ -195,7 +195,7 @@ Public Class ClassControlBuilder
obj = dependingControl.GetType.ToString
Select Case dependingControl.GetType().Name
Case "ComboBox"
Case "CustomComboBox"
ControlLoader.Combobox.SetDataSource(DirectCast(dependingControl, CustomComboBox), dt)
Case "Label"
If dt.Rows.Count = 1 Then
@@ -313,7 +313,7 @@ Public Class ClassControlBuilder
AddHandler textbox.TextChanged, AddressOf OnTextBoxTextChanged
AddHandler textbox.ReadOnlyChanged, AddressOf OnReadOnlyChanged
Case "ComboBox"
Case "CustomComboBox"
Dim combo As CustomComboBox = CType(control, CustomComboBox)
AddHandler combo.SelectedValueChanged, AddressOf RecordChanged
AddHandler combo.SelectedValueChanged, AddressOf OnComboBoxValueChanged
@@ -604,7 +604,7 @@ Public Class ClassControlBuilder
Select Case CurrentType
Case "TextBox"
ActiveControl.BackColor = ActiveColor
Case "ComboBox"
Case "CustomComboBox"
'Case "System.Windows.Forms.ComboBox"
ActiveControl.BackColor = ActiveColor
Case "Label"
@@ -636,7 +636,7 @@ Public Class ClassControlBuilder
Select Case Type
Case "TextBox"
inctrl.BackColor = Color.White
Case "ComboBox"
Case "CustomComboBox"
'Case "System.Windows.Forms.ComboBox"
inctrl.BackColor = Color.White
Case "Label"
@@ -665,7 +665,7 @@ Public Class ClassControlBuilder
Select Case gbType
Case "TextBox"
gbctrl.BackColor = Color.White
Case "ComboBox"
Case "CustomComboBox"
'Case "System.Windows.Forms.ComboBox"
gbctrl.BackColor = Color.White
Case "Label"