DesignerLock

This commit is contained in:
2020-03-18 10:49:24 +01:00
parent c767b35b12
commit e81183a698
8 changed files with 194 additions and 108 deletions

View File

@@ -1704,8 +1704,10 @@ Public Class frmValidator
Dim oENABLE_GUID = oRowEnablingControl.Item("GUID")
Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME")
For Each oControl As Control In pnldesigner.Controls
oControl.Enabled = False
Exit For
If oENABLE_GUID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid Then
oControl.Enabled = False
Exit For
End If
Next
Next
Catch ex As Exception