Проектирование системного меню и справочной информации

↑

▷ Содержание

⇐ ПредыдущаяСтр 5 из 5

Достоинством Excel для Windows является достаточно гибкий для настройки интерфейс. Пользователь может создавать и настраивать панели инструментов, кнопки, строки меню, проектировать собственную справочную информацию.

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

Ниже приведен текст процедуры, выполняющейся при нажатии на кнопку формы. Процедура активизирует помощника, управляет его движением и воспроизводит указанный текст – комментарий.

Private Sub CommandButton1_Click()

Set helper = Assistant.NewBalloon

Assistant.Animation = msoAnimationThinking

Assistant.Sounds = True

With helper

.BalloonType = msoBalloonTypeButtons

.Heading = "ПК - наш лучший друг"

.Text = "Неоспоримые истины"

.Labels(1).Text = "Информатика - прекрасная наука"

.Labels(2).Text = "КСиС - еще лучше"

.Labels(3).Text = "А знать Internet технологии - здорово"

num =.Show

End With

Select Case num

Case 1

MsgBox "Будешь хорошо знать ПК"

Case 2

MsgBox "Узнаешь о сетевых технологиях"

Case 3

MsgBox "Научишься создавать сайт!!!"

End Select

End Sub

Рис. 7

На рис. 7 представлено диалоговое окно, создаваемое помощником Скрепыш.

Задание № 12. Запрограммировать помощника, позволяющего отобразить на экране подсказки по работе с одной из ранее созданных процедур (задания 4, 5, 8, 9, 10, 11) при вводе исходных данных или возникновении ошибок ввода.

Программирование панели инструментов позволяет создавать для приложений собственный интерфейс: исключить из меню и панели инструментов основного системного меню кнопки и команды, не относящиеся к разрабатываемому приложению и добавить новые необходимые средства. Чтобы облегчить программирование, VBA объединяет меню, панели инструментов и контекстные меню в одну группу.

Ниже представлены процедуры, имеющие цель – создание новой строки меню взамен системного меню, с подменю и вызовом двух процедур.

Sub Личное_меню()

Application.Caption = "Мое приложение"

With Application.CommandBars.Add("Мое меню",, True, True)

.Visible = True

With.Controls

With.Add(Type:=msoControlPopup)

.Caption = "&Меню"

With.Controls

With.Add(Type:=msoControlButton)

.Caption = "Пункт 1"

.OnAction = "Процедура1"

End With

With.Add(Type:=msoControlButton)

.Caption = "Пункт 2"

.OnAction = "Процедура2"

End With

End With

End With

End With

End With

End Sub

Sub Процедура1()

MsgBox "Привет, пользователь ПК"

End Sub

Sub Процедура2()

MsgBox "Еще один привет"

End Sub

На рис. 8 представлен внешний вид приложения в результате работы программы.

Рис. 8

Задание № 13. Создать собственное меню, заменяющее основное меню Excel. Оно должно содержать перечень всех ранее созданных приложений (задания 4, 5, 6, 8, 9, 10, 11).

Литература

1. Гарнаев Ю.А. Самоучитель VBA. С-Пб., BHV-Санкт-Петербург, 2001. - 512 с.

2. Комягин В.Б. Программирование в Excel5 и Excel7 на языке Visual Basic. М., Радио и связь, 1996. – 156 с.

3. Назаров С.В., Мельников П.П. Программирование на MS Visual Basic. М., Финансы и статистика, 2002 – 320 с.

4. Сана П. Visual Basic для приложений. С-Пб., BHV-Санкт-Петербург, 1999. - 704 с.

Приложение

Приложение 1

Задачи для самостоятельной работы

Оглавление

1. Создание пользовательских функций

2. Пользовательские процедуры

2.1. Ввод записей в базу данных

2.2. Поиск уникальной записи по указанным критериям

2.3. Расчет итоговых показателей по всем и группе записей

2.4. Поиск записей согласно критериям

3. Отладка программ и обработка ошибок

4. Проектирование пользовательских форм для ввода-вывода информации

4.1. Использование формы в процедуре Auto_Open

4.2. Ввод новой записи в форме, обработка записей

5. Проектирование системного меню и справочной информации

6. Список литературы

7. Приложение

Познавательные статьи:



Техника прыжка в длину с разбега

Тактические действия в защите

История Олимпийских игр

История развития права интеллектуальной собственности