Пример программы. Форма предназначена для управления в диалоге платежами (оплата наличными или с

Форма предназначена для управления в диалоге платежами (оплата наличными или с использованием кредитных карточек, вид используемой карточки, оплата гривнями). Она содержит командную кнопку для начала работы с формой, рамку, объединяющую два переключателя для выбора наличной или безналичной оплаты, рамку, выделяющую флажок для определения оплаты гривнями, рамку, объединяющую два переключателя для выбора вида кредитной карточки, и имеет вид, показанный на рис. 2.7.

Названия управляющих элементов (Начало, Метод платежа, Наличными, Кредитная карта, Наличными, Гривни, Кредитная карта, Мостбанк, VISA) заданы значением свойств Caption перечисленных управляющих элементов формы.

Пои выводе формы на экран все элементы управления кроме командной кнопки должны быть неактивными (не реагировать на какие-либо события). Для этого свойству Enabled всех элементов управления, кроме командной кнопки, в окне свойств каждого из них присваивается значение False.

Рис. 2.7

Щелчок мышью по кнопке Начало должен активизировать рамку выбора метода платежа и находящиеся в ней переключатели. Щелчок мышью по переключателю Наличными должен активизировать соответствующую рамку и находящийся в ней флажок. Щелчок мышью по переключателю Кредитная карта должен активизировать соответствующую рамку и находящиеся в ней переключатели (рамка Наличными и находящийся в ней флажок должны при этом стать не активными).

Такая логика работы диалоговой формы обеспечивается заданием следующего программного кода (используемые имена управляющих элементов Command1 (Управляющая кнопка), Check1 (Флажок), Frame1, Frame2, Frame3 (Рамки), Option1, Option2, Option3, Option4 (Переключатели) вводятся Visual Basic по умолчанию):

Private Sub Command1 Click()

Frame1.Enabled = True

Option1.Enabled = True

Option2.Enabled = True

End Sub

Private Sub Option1_Click()

Frame2.Enabled = True

Check1.Enabled = True

Frame3.Enabled = False

Option3.Enabled = False

Option4.Enabled = False End Sub

Private Sub Option2_Click()

Frame3.Enabled = True

Option3.Enabled = True

Option4.Enabled = True

Frame2.Enabled = False

Check1.Enabled = False End Sub

Процедура Sub Command1_Click обработки события, связанного с щелчком мыши по командной кнопке, обеспечивает активизацию рамки Метод платежа и расположенных в ней переключателей.

Процедура Sub Option1_click обеспечивает активизацию рамки “Наличные” и расположенный в ней флажок “Гривни”. Процедура Sub Option2_click обеспечивает активизацию рамки

“Кредитная карта” и расположенных в ней переключателей. Последние два оператора в каждой процедуре обеспечивают деактивизацию соответственно рамок “Кредитная карта” и “Наличные” и элементов в них, если они ранее были активны.

Рис. 2.8

Рис. 2.9

Рис. 2.10

Запустив данное приложение кнопкой Run Главного меню, увидим исходную форму (неактивные элементы обозначены бледно) (рис. 2.8). Щелкнув мышью по командной кнопке “Начало”, увидим форму (рис. 2.9). Щелкнув мышью по переключателю “Наличными”, активизируем рамку “Наличными” и флажок “гривни”, который можно пометить (рис. 2.10). Щелчок мыши по переключателю “Кредитная карта” активизирует соответствующую рамку и переключатели в ней, один из которых можно активизировать (рис. 2.11).

Дата добавления: 2015-10-26