Флажок (CheckBox)

Date: 2015-10-07; view: 428.

Глава 15. Элементы управления

Вот некоторые элементы управления, с которыми мы уже познакомились:

· Кнопка, метка, текстовое поле - в Глава 1 и Глава 2.

· Microsoft Multimedia Control - в 2.8

· Animation - в 2.12

· Image, Picture - в 9.3

· Line, Shape - в 9.4

· Таймер - в 11.2

· Рамка (Frame) - в 14.4

А эти элементы управления мы пройдем позже, в следующих главах:

· Common Dialog - в 18.2

· Панель инструментов и ImageList - в 18.3

· Web-броузер - в 21.5

· Data и DBGrid - в 22.3

В этой главе я познакомлю вас с остальными нужными, с моей точки зрения, элементами управления. Я буду описывать только главное действие и главные свойства этих элементов, но этого в подавляющем большинстве случаев вполне достаточно. С другими любопытными и удобными их свойствами вы можете познакомиться в более толстых книжках.

Я не буду приводить примеры реальных программ с использованием этих элементов. Вам достаточно будет знать, как меняются в процессе функционирования значения их основных свойств. Вы уже достаточно опытны, чтобы при некоторой фантазии самостоятельно придумать проекты с их использованием.

Многих из описываемых элементов управления нет на Toolbox. Чтобы их добыть, поставьте флажки в Project ® Components ® Microsoft Windows Common Controls 6.0и Microsoft Windows Common Controls 6.0-2.

Поместите на форму несколько флажков(CheckBox). Запустите проект. Пощелкайте внутри квадратиков. Флажок мы устанавливаем (ставим галочку мышкой или с клавиатуры) тогда, когда хотим сказать "да", а снимаем установку (снимаем галочку мышкой или с клавиатуры), когда хотим сказать "нет".

Задача: Нажатием на кнопку нужно нарисовать окружность. Но перед нажатием кнопки мы хотим иметь возможность немножко настроить вид окружности, а именно: одним флажком установить или не установить тройную толщину линии этой окружности, а другим флажком установить или не установить синий цвет этой линии. Если флажки мы не установим, то толщина и цвет будут выполнены по умолчанию (одинарная и черный).

Ваши действия: Создайте проект с кнопкой и двумя флажками:

Имена флажков - Check1 и Check2.

Программа:

Private Sub Command1_Click()

Cls

If Check1.Value = vbChecked Then DrawWidth = 3 Else DrawWidth = 1 'Если флажок 1 установлен, то толщина тройная, иначе одинарная

If Check2.Value = vbChecked Then ForeColor = vbBlue Else ForeColor = vbBlack 'Если флажок 2 установлен, то цвет синий, иначе черный

Circle (500, 500), 300

End Sub

Пояснения: У многих элементов управления есть свойство Value(значение), характеризующее главное назначение элемента. Свойство Value флажка имеет 3 значения: vbChecked(установлен, галочка), vbUnchecked(не установлен, пустой белый квадрат), и vbGrayed(галочка на сером фоне - используется нечасто, например, в процессе установки Microsoft Office). Все три значения можно устанавливать в режиме проектирования и программным способом. В режиме работы можно вручную, мышкой или с клавиатуры, устанавливать только первые два значения, причем переключать между этими двумя значениями можно сколько угодно раз. В этом и состоит удобство флажков: перед тем, как совершить решающее нажатие на кнопку, можно поддаться сомнениям и как угодно устанавливать флажки или, передумав, снимать установку.

Поэкспериментируйте с цветами, шрифтом флажка. Флажок может иметь и другой внешний вид - графический (свойство Style) с участием картинок.