Управляющие объекты

Кроме основных элементов, расположенных на панели элементов (лаб. раб.1) в комплект VB6 входит ряд дополнительных элементов. К ним относятся элементы по работе с Internet ,базами данных, с мультимедиа и т.п. В работе будут рассмотрены (базовые) объекты управления: командные кнопки (CommandButton), текстовые окна (TextBox), надписи (Label), Рамка (Frame), Переключатели OptionButton, Переключатели-индикаторы CheckBox, списки (ListBox и Combobox), рисунок (Image). Для размещения элемента на форме нужно дважды щелкнуть на выбранном значке в панели элементов или же «нарисовать» элемент на форме – для этого необходимо щелкнуть на нем мышью и на форме растянуть соответствующий контур. После размещения элемента последовательно задаются его свойства. Для этого элемент выделяется мышью (делается активным) и в окне свойств задаются необходимые стартовые свойства элемента управления.

Командные кнопки (CommandButton) – самый распространенный управляющий элемент в приложениях для Windows, использующийся для решения задач. Свойства кнопок:Cancel; Caption; Default; Enable; Name; Style; TabIndex; TabStop.

Name – по этому свойству Visual Basic отличает одну кнопку от другой.

Caption – определяет текст, который должен находиться на кнопке. Символ «амперсант» (&), добавленный в текст, позволяет работать с кнопкой при помощи клавиатуры вместо щелчка мыши. Для этого следует нажать клавишу Alt вместе с подчеркнутой буквой в надписи кнопки.

Свойство Default = True, то нажатие клавиши Enter приведет к нажатию кнопки.

Свойство Cancel = True, то нажатие клавиши Esc приведет к закрытию работы приложения.

Нельзя на одной и той же кнопке установить Default = True и Cancel = True.

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

Свойство Visible=False означает, что кнопка просто исчезает.

Наиболее применимым из методов кнопок является метод SetFocus, который используется для передачи фокуса конкретному объекту (например, текстовому полю). Фокусом – называется способность элемента воспринимать ввод с клавиатуры. Синтаксис метода: имяЭлемента.SetFocus.

Упражнение 4. Изучение свойств кнопок

1. Создать новый проект. Задать проекту имя «Элементы_управления».

2. Форме проекта присвоить имя frmCommand, свойству Caption присвоить значение “Изучение свойств кнопок”.

3. Установить на форме две кнопки, расположив в порядке создания слева направо (рис.8).

4. Кнопкам присвоить имена cmdpr1 и cmdpr2. Свойству Caption первой кнопки присвоить надпись &Enter, свойству Default=True. Свойству Caption второй кнопки – E&sc, Cancel=True.

5. Установить на форме текстовую метку со свойствами Autosize=True, Caption=“” (Пусто).

6. Дважды щелкнуть по кнопке cmdpr1. В открывшемся окне программного кода кнопки в событие Click записать следующий код:

Private Sub cmdpr1_Click()

Label1.Caption="Для закрытия формы нажмите клавишу ESC"

End Sub

7. Дважды щелкнуть по кнопке Cmdpr2 и в окне ее программного кода записать:

Private Sub Cmdpr2_Click()

End

End Sub

8. Запустить приложение. Нажать клавишу Enter и следуя указаниям (рис 8) нажать клавишу Esc – приложение будет закрыто.

9. Запустить приложение. Закрыть приложения, используя комбинации клавиш Alt+E и Alt+S.

10. Добавить на форму кнопку (рис 9) со свойствами: Name = Cmdpr3 и Caption = Старт

11. Добавить на форму метку с именем Label2 и свойством Caption = “”.

12. Добавить на форму текстовое поле (TextBox) со свойствами: Name = txtText1 и Text =””

13. Дважды щелкнуть по кнопке Cmdpr3 и в окне ее программного кода записать код:

Private Sub Cmdpr3_Click()

txtText1.SetFocus

Label2.Caption = "Введите число 1 - 3"

End Sub

14. Щелкнуть дважды в окне TxtText1 и в окне его программного кода записать:

Private Sub txtText1_Change()

Dim y As Variant : y = txtText1.Text

If y = 3 Then Cmdpr2.Visible = False

If y = 1 Then Cmdpr1.Enabled = False

End Sub

15. Запустить приложение. После нажатия кнопки Старт в текстовом окне появится мерцающий курсор (код TxtText1.Focus). Далее анализируется введенное значение в текстовое поле. Если число 1, то кнопка Enter будет заблокирована. Если число 2, то приложение будет работать в первозданном варианте. Если число 3, кнопка Esc исчезает с поля формы.

Текстовые поля TextBox (Текстовые окна) – эти элементы применяются для ввода данных и получения информации от пользователя, о пользователе. Свойства полей: Locked; MaxLength ; Multiline; Name; Password ; ScrollBar; Text.

Name – по умолчанию для текстовых полей начинается с префикса txt.

Text – определяет содержание окна. Допускается ввод текста, объем которого не превышает 64 Кбайт. При вводе данных в одну строку, длина ее не должна превышать 255 символов.

Свойство MaxLength ограничивает длину вводимого текста заданным количеством символов.

Свойство Password задает символ, который отображается в окне поля при вводе (***).

Свойство Multiline позволяет ввести текст, состоящий из нескольких строк. Если оно используется в сочетании со свойством ScrollBar, то поле практически превращается в простейший текстовый редактор.

Свойство Locked = True определяет возможность пользователя только выводить информацию, которую в дальнейшем (после ее вывода) изменить нельзя.

Событие Change происходит каждый раз, при изменении содержимого текстового поля.

Надписи (Label) используются для отображения небольшого текста (справочной информации, подсказки) или результатов простых вычислений. Отличие надписи от текстового окна заключается в том, что пользователь не может изменить текст надписи по своему усмотрению (только в процессе выполнения приложения). Самое важное свойство надписи – Caption (надпись).

Упражнение 5. Работа с текстовым окном и надписями.

1. Добавить к проекту новую форму со свойствами: Name= frmtxt, Caption = “Текстовое окно”.

2. Установить на форме текстовое поле со свойствами: Height = 1400; Width = 5235; Top = 200; Multiline = true; Name = Text1; Text : Фамилия; Имя; Отчество; Курс; Факультет; Группа (рис 10).

3. Под полем установить три кнопки управления с именами Command1, Command2 и Command3 соответственно. Свойствам Caption кнопок присвоить значения: Command1.Caption = Очистка; Command2.Caption=Вставить время; Command3.Caption=Дать сообщение

4. Открывая последовательно окна программных кодов кнопок, ввести в них соответствующие коды:

Private Sub Command1_Click()

Text1.Text = ""

End Sub

Private Sub Command2_Click()

Text1.Text = Time

End Sub

Private Sub Command3_Click()

Text1.Text = "Так работает Текстовое Окно"

End Sub

5. Запустить приложение. Ввести свои данные в текстовое окно. Нажимая последовательно кнопки, отметить изменения содержания окна. Сохранить проект в рабочей папке.

6. Установить на форме «Текстовое окно» еще одну кнопку управления (рис11).

7. Свойству кнопки Caption присвоить значение Cancel. Щелкнуть дважды по кнопке мышью и в окне программного кода записать:

Private Sub Command4_Click()

End

End Sub

8. Над кнопкой создать метку со свойствами: Autosize=True, Caption = Завершение работы.

9. Запустить приложение. Нажатие кнопки Cancel завершает работу приложения (рис. 11).

Переключатели OptionButton (кнопки выбора) – позволяют выбрать только один вариант из группы (Рис.12). Свойства: Caption; Name; Style; Value.

Name – имена переключателей обычно снабжаются префиксом opt.

Свойство Caption помогает определить, для чего предназначен переключатель.

Свойство Value может принимать два значения True (установленный) и False (снятый). Разрешается установить значение свойства Value=True только одного элементов (по умолчанию Value=False). Переключатели, находящиеся на форме без какого либо разделителя рассматриваются как одна группа и только один из них может быть установлен.

Свойство Style задает вид переключателя: 0 – standart, 1 –Grafica, соответствует изображению обычной кнопки (по умолчанию 0).

Переключатели группируются по независимым группам с использованием элемента Рамка (Frame). В случае перемещения рамки перемещаются вместе с ней. Самым важным свойством Рамки (после Name) следует считать Caption, которое позволяет снабдить рамку содержательным названием, позволяющему понять, по какому признаку объединены элементы.

Переключатели-индикаторы CheckBox (Флажки) – применяются, когда пользователь должен дать ответ в виде да/нет (истина/ложь). Отображается в виде небольшого квадратика, в котором появляется «галочка», если флажок выбран (Рис. 13). Свойства: Name, Caption и Value.

Свойство Value для флажков может принимать 2 возможных значения (установленный и неустановленный). В отличие от переключателей даже объединенные в группы флажки работают независимо друг от друга. Флажки также можно объединять рамкой. Имена флажков (свойство Name) обычно снабжаются префиксом chk.

Упражнение 6. Работа с переключателями.

1. К проекту добавить форму со свойством Caption=«Работа с флажками и переключателями» и свойством Name=Frm2ChtOpt.

2. Установить на форме текстовое окно. Под текстовым окном на форме расположить две метки (надписи) с именами Label1 и Label2 и свойствами Caption с соответствующими значениями Шрифт и Параметры шрифта.

3. Свойству Font обоих меток присвоить значение “Times New Roman”.

4. В нижней части формы установить два переключателя Option1, Option2 и два флажка Check1 и Check2. Переключателю с именем Option1 задать значение свойствам Caption = Times New Roman и Value = 0. Переключателю с именем Option2 задать значение свойствам Caption = Arial и Value = 0.

5. Присвоить свойствам Caption флажков соответственно значения Italic(курсив) и Bold (Полужирный). После всех установок форма должна иметь вид рис 14.

6. Щелкнуть дважды по форме и в открывшемся кодовом окне процедуры Form_Load написать следующий код: Text1.FontName = "Ms Serif": Option2.Value = 0: Option1.Value = 0 т. е., в процессе загрузки формы, содержание текстового окна будет записано шрифтом «Ms Serif».

7

Рис.14 Форма с флажками и переключателями

. Открыть окно программного кода переключателя Option1 и записать следующий код.:

Private Sub Option1_Click()

Text1.Text="Times new roman"

Text1.FontSize = 16

End Sub

8. В окне программного кода переключателя Option2 записать код:

Private Sub Option2_Click()

Text1.Text = "Arial"

Text1.FontName = "Arial"

Text1.FontSize = 20

End Sub

9. Щелкнуть дважды по флажку Check1, в открывшемся окне записать следующий программный код:

Private Sub Check1_Click()

If Check1.Value = 1 Then Text1.Fontitalic =True Else Text1.FontItalic = False

End Sub

10. В программном окне флажка Check2 записать код:

Private Sub Check2_Click()

If Check2.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False

End Sub

11. Запустить приложение. Устанавливая переключатели и соответствующую комбинацию флажков, отметить изменения содержания текстового окна.

12. Завершить работу приложения, сохранив форму Frm2OptChk.

Списки (ListBox и Combobox) предоставляют пользователю список выбираемых им альтернатив. Элемент ListBox – это просто список, пункты которого (по одному или группами) выбираются с помощью мыши. Пункты можно вставлять в элемент ListBox с помощью программного кода, либо устанавливая значение свойства List в окне свойств. Каждый пункт вводится отдельной строкой. Прямое редактирование списков невозможно. Если в списке не помещаются все строки, Visual Basic добавляет в него вертикальную полосу прокрутки. Свойства списков: Columns, List, ListCount, ListIndex, MultiSelect, Name, NewIndex, Selected, Sorted, Style.

Свойство Columns позволяет создать списки, состоящие из нескольких столбцов.

Свойство List задает или возвращает содержимое строки, входящей в список. При работе с этим свойством необходимо указывать номер нужной строки. Нумерация начинается с «0» и заканчивается числом, на 1 меньше общего количества строк в списке. Например, содержимое третьей строки списка можно получить при помощи следующего выражения: lstList1.List(2).

В свойстве Text хранится содержимое текущей выделенной строки.

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

Свойство Selected (выделение) имеет логический тип и может использоваться только во время выполнения приложения. Следующий пример выделяет третью строку приложения: lstList1.Selected(2) = True.

Свойство Sorted задается только в режиме конструирования. Если в режиме конструирования в список будут добавлены строки, то они будут сортироваться в алфавитном порядке по возрастанию без учета регистра.

Чаще всего для списков используется событие DblClick (двойной щелчок). Среди методов списка особого внимания заслуживают три метода – AddItem (включение строк в список), Clear (очистить строку списка), RemoveItem (удаляет строки из списка). Формат записи метода AddItem: