Вопросы для контроля

1. Как создать текст надписи пункта меню?

2. Как создать имя пункта меню?

3. Что означает имя ScaleWidth?

4. Что означает имя ScaleHeight?

5. Каково назначение метода Move?

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

Часть 2 панели инструментов Дополнительные управляющие элементы

Цель работы:

1. уметь помещать на панель элементов дополнительные элементы.

2. уметь создавать меню

Практическая часть

1. Запустите Visual Basic. Если появится окно New Project, то выберите Standard EXE и создайте стандартный проект.

2. Для сохранения формы и проекта в рабочей папке щелкните на кнопке Save Project панели инструментов, перейдите в корневой каталог диска d, с помощью кнопки Создание новой папки создайте свою рабочую папку, откройте ее и щелкните на кнопке Сохранить окна Save Project As для сохранения формы, и еще раз щелкните на этой же кнопке для сохранения проекта.

3. Щ елкните на панели элементов правой кнопкой мыши для вызова контекстного меню.

4. Выберите из контекстного меню команду Add Tab… Задать имя создаваемой вкладки на панели инструментов.

5. Введите Дополн. и щелкните на кнопке ОК. На панели элементов появилась вкладка Дополн.

6. Щелкните на созданной вкладке, чтобы сделать ее активной.

7. Щелкните на панели элементов правой кнопкой мыши и выберите из контекстного меню команду Components. Появится диалоговое окно (рисунок 18.3).

8. На вкладке Controls диалогового окна установите флажок рядом со строкой Microsoft Windows Common Controls 6.0.

9. Щ елкните на кнопке ОК, чтобы поместить элементы на вкладку. Если элементы появились не на вкладке Дополн., а на главной, то их можно поочередно перетащить вручную на нужную вкладку. В результате на дополнительной вкладке панели инструментов появятся элементы, показанные на рисунке 18.4.

Создание панелей инструментов

Панель инструментов (элемент ToolBar) является хорошим дополнением к меню. Она ускоряют вызов команд.

1. Поместите элемент ToolBar (панель инструментов) на форму. Задайте свойству Name значение tbrToolbar, а свойству Align – значение 1 – vbAlignTop.

2. В окне свойств дважды щелкните на строке свойства Gustom.

3. В открывшемся диалоговом окне Property Pages перейдите на вкладку Buttons.

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

5. Щелкните на кнопке Insert Button. На панели инструментов появится кнопка. В следующем пункте Вы укажите, что это не кнопка, а разделитель.

6. Откройте список Style и выберите из него строку 3 – tbrSeparator.

Создание кнопок на панели инструментов

Разместите на панели инструментов три кнопки.

7. Щелкните на кнопке Insert Button. На панели инструментов кнопка отодвинулась правее, а перед ней появился разделитель. Сейчас Вы должны описать эту кнопку. Присвойте на вкладке свойству Key значение New, а свойству Style значение 0 – tbrDefault.

8. Снова щелкните на кнопке Insert Button и создайте еще одну кнопку. Присвойте свойству Key значение Open, а свойству Style значение 0 – tbrDefault.

9. Щелкните в последний раз на кнопке Insert Button и добавьте на панель последнюю кнопку. Задайте свойству Key значение Save, а свойству Style значение 0 – tbrDefault.

10. Щелкните на кнопке ОК. Панель инструментов готова. Если все было сделано правильно, она должна быть похожа на изображение, приведенное на рисунке 18.5.