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

jj 14.04.2016 gelbe combobox

Browse Source
This commit is contained in:
JenneJ
2016-04-14 17:09:57 +02:00
parent 8ed70abb9a
commit 4830606cf3
10 changed files with 264 additions and 148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -1902,66 +1902,67 @@ Public Class frmConstructor_Main
Select Case Control.GetType()
Case GetType(Windows.Forms.GroupBox)
Lock_Record_Controls_Recursive(state, DirectCast(Control, GroupBox).Controls)
Case GetType(Windows.Forms.TextBox)
Dim txt As TextBox = CType(Control, TextBox)
txt.ReadOnly = state
Case Else
Control.Enabled = Not state
Case GetType(Windows.Forms.CheckBox)
Dim chk As CheckBox = CType(Control, CheckBox)
If state = True Then
chk.Enabled = False
Else
chk.Enabled = True
End If
'Case GetType(Windows.Forms.CheckBox)
' Dim chk As CheckBox = CType(Control, CheckBox)
' If state = True Then
' chk.Enabled = False
' Else
' chk.Enabled = True
' End If
Case GetType(Windows.Forms.RadioButton)
Dim rb As RadioButton = CType(Control, RadioButton)
If state = True Then
rb.Enabled = False
Else
rb.Enabled = True
End If
'Case GetType(Windows.Forms.RadioButton)
' Dim rb As RadioButton = CType(Control, RadioButton)
' If state = True Then
' rb.Enabled = False
' Else
' rb.Enabled = True
' End If
Case GetType(Windows.Forms.ComboBox)
Dim cbobx As System.Windows.Forms.ComboBox = CType(Control, System.Windows.Forms.ComboBox)
If state = True Then
cbobx.Enabled = False
Else
cbobx.Enabled = True
End If
'Case GetType(CustomComboBox)
' Dim cbobx As CustomComboBox = CType(Control, CustomComboBox)
' If state = True Then
' cbobx.Enabled = False
' Else
' cbobx.Enabled = True
' End If
Case GetType(DevExpress.XtraEditors.DateEdit)
Dim dtp As DevExpress.XtraEditors.DateEdit = CType(Control, DevExpress.XtraEditors.DateEdit)
If state = True Then
dtp.Enabled = False
Else
dtp.Enabled = True
End If
'Case GetType(DevExpress.XtraEditors.DateEdit)
' Dim dtp As DevExpress.XtraEditors.DateEdit = CType(Control, DevExpress.XtraEditors.DateEdit)
' If state = True Then
' dtp.Enabled = False
' Else
' dtp.Enabled = True
' End If
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
Dim chlb As DevExpress.XtraEditors.CheckedListBoxControl = CType(Control, DevExpress.XtraEditors.CheckedListBoxControl)
If state = True Then
chlb.Enabled = False
Else
chlb.Enabled = True
End If
'Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
' Dim chlb As DevExpress.XtraEditors.CheckedListBoxControl = CType(Control, DevExpress.XtraEditors.CheckedListBoxControl)
' If state = True Then
' chlb.Enabled = False
' Else
' chlb.Enabled = True
' End If
Case GetType(DevExpress.XtraEditors.ListBoxControl)
Dim lb As DevExpress.XtraEditors.ListBoxControl = CType(Control, DevExpress.XtraEditors.ListBoxControl)
If state = True Then
lb.Enabled = False
Else
lb.Enabled = True
End If
'Case GetType(DevExpress.XtraEditors.ListBoxControl)
' Dim lb As DevExpress.XtraEditors.ListBoxControl = CType(Control, DevExpress.XtraEditors.ListBoxControl)
' If state = True Then
' lb.Enabled = False
' Else
' lb.Enabled = True
' End If
Case GetType(Windows.Forms.Button)
Dim btn As Button = CType(Control, Button)
If state = True Then
btn.Enabled = False
Else
btn.Enabled = True
End If
'Case GetType(Windows.Forms.Button)
' Dim btn As Button = CType(Control, Button)
' If state = True Then
' btn.Enabled = False
' Else
' btn.Enabled = True
' End If
End Select
Next
End Sub