MS_21.04.2016
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user