Здравствуйте! При создании Useform (создается для внесения данных в некую базу) столкнулся с проблемой нехватки знаний, в связи с чем обратился к Вам!
Имеем много textbox-ов и Combobox-ов, при выборе значения в одном из них, в других происходят изменения в свойствах, таких как:
.BackColor = &H8000000F; .Enabled = False; .Locked = True; .SpecialEffect = fmSpecialEffectEtched
и обратно:
.BackColor = &H80000005; .Enabled = True; .Locked = False; .SpecialEffect = fmSpecialEffectSunken
Если писать свойства отдельно для каждого textbox и Combobox, код становится очень большим :(
Собственно вопрос: как упростить процесс изменения свойств, к примеру, создать одну общую переменную, которая может менять указанные свойства в любом textbox и Combobox, что-то типа этого:
Код |
---|
А = .BackColor = &H8000000F В = .BackColor = &H80000005
.Enabled = False .Enabled = True
.Locked = True .Locked = False
.SpecialEffect = fmSpecialEffectEtched .SpecialEffect = fmSpecialEffectSunken |
ПРИМЕР:
Код |
---|
If Combobox1.Value = 1 Then
Combobox2 = A
Combobox3 = А
Combobox4 = В
Combobox5 = В и т.д. |
Заранее благодарю за помощь!