Процедура установки флажка после которой с экрана исчезают какие-то элементы и появляются новые ...
Private Sub Void_AfterUpdate() With CodeContextObject If (.Void = False Or IsNull(.Void)) Then .ЭлементActiveX6.Visible = True .ЗадатьДату.Visible = True .Группа30.Visible = False End If If (.Void = True) Then .ЭлементActiveX6.Visible = False .ЗадатьДату.Visible = False .Группа30.Visible = True End If End With End Sub В данном приемре исчезают календарь - ЭлементActiveX6 и кнопка - ЗадатьДату Поябляется группа переключателей - Группа30 При снятии флажка все возвращается на круги своя. Просмотров: 4510
Ваш коментарий будет первым | | |