MS_21.04.2016

This commit is contained in:
SchreiberM
2016-04-22 07:25:19 +02:00
parent fa5397cd24
commit 89224ad272
3 changed files with 13 additions and 13 deletions

View File

@@ -1993,12 +1993,12 @@ Public Class frmConstructor_Main
Dim txt As TextBox = CType(Control, TextBox)
txt.ReadOnly = state
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
'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 Else
Control.Enabled = Not state