Методические рекомендации к практической работе №16 по дисциплине «Пакеты прикладных программ» 2008




Yüklə 31.17 Kb.
tarix28.02.2016
ölçüsü31.17 Kb.


Федеральное агентство по образованию

федеральное государственное образовательное учреждение

Тольяттинский политехнический колледж


МЕТОДИЧЕСКИЕ РЕКОМЕНДАЦИИ

К практической работе №16


по дисциплине «Пакеты прикладных программ»












2008



“Утверждаю”

Заместитель директора по

учебной работе ТПК _________________

С.А. Гришина “__”_______________ 200__ г.


Одобрено ПЦК по

специальности «Информатика и ВТ»

Зав.ПЦК_________ Л.Г.Светличная

Методические указания составлены в соответствии с рабочей программой по дисциплине «Пакеты прикладных программ» Специальности 230105 «Программное обеспечение вычислительной техники и АС», утвержденной зам. Директора по учебной работе С.А. Гришиной

Составитель: Тормозова Юлия Анатольевна.
Преподаватель специальных и общеобразовательных дисциплин Тольяттинского политехнического колледжа.

Рецензент:


Методические указания к выполнению практической работы

Создание меню со встроенными функциями и картинками.
Краткие теоретические сведения

В пользовательское меню можно включать пункты из уже существующих меню со встроенными функциями (Листинг 1)

Например, если вы хотите, чтобы в вашем меню была команда Сохранить, ее можно позаимствовать из панели инструментов Файл. Для этого нужно определить идентификатор этой команды свойством ID, а уже затем добавить нужный пункт в свое меню. Для добавления стандартного пункта меню используется метод Add семейства Controls, у которого в качестве значения параметра ID указано значение идентификатора данной команды.

Для примера создадим строку меню, расположенную вдоль нижнего края окна приложения и состоящую из выпадающего меню файл с тремя стандартными пунктами: Создать…, Сохранить и Закрыть (Рис.1)


Листинг1 Стандартный модуль.
Создание меню со встроенными функциями и картинками

Const CommandBarName As String = "Новое_меню"
Sub MenuBuilder()

Dim cbMenuBar As CommandBar

Dim cbMenu As CommandBarControl

Dim btnNew As CommandBarButton ‘Пункт меню Создать…

Dim btnSave As CommandBarButton ‘Пункт меню Сохранить

Dim btnExit As CommandBarButton ‘Пункт меню Закрыть

Dim n As Integer
‘Удаление меню

MenuKiller


'Создание строки меню, замещающей встроенное меню

Set cbMenuBar = Application.CommandBars.Add(Name:=CommandBarName, _

Position:=msoBarTop, _

MenuBar:=True, _

Temporary:=True)

‘Отображение строки меню

cbMenuBar.Visible = True
Set cbMenu = cbMenuBar.Controls.Add(Type:=msoControlPopup)

cbMenu.Caption = "Ф&айл"


‘Добавление пункта Создать…

n = Application.CommandBars("File").Controls("Создать...").ID

Set btnNew = cbMenu.Controls.Add(Type:=msoControlButton, ID:=n)
‘Добавление пункта меню Сохранить

n = Application.CommandBars("File").Controls("Сохранить").ID

Set btnSave = cbMenu.Controls.Add(Type:=msoControlButton, ID:=n)
‘Добавление пункта меню Закрыть

n = Application.CommandBars("File").Controls("Закрыть").ID

Set btnExit = cbMenu.Controls.Add(Type:=msoControlButton, ID:=n)

End Sub
‘Процедура удаления строки меню

Sub MenuKiller()

On Error Resume Next

Application.CommandBars(CommandBarName).Delete

On Error GoTo 0

End Sub
VBA позволяет не только создавать полностью новое меню, но и добавлять в уже существующее меню новые элементы(Листинг2) Для того чтобы это сделать, достаточно определить местоположение того элемента, перед которым надо вставить новый, а затем создать новый и поместить его в указанное место с помощью метода Add.
Листинг 2 Модуль ThisDocument

Добавление Нового пункта в стандартное меню
Private Sub Document_Open()

Dim cb As CommandBar

Dim NewItem As CommandBarControl

Dim oSaveAsMenu As CommandBarControl

Dim ItemPosition As Integer

Set cb = CommandBars.Item("File")

Dim i As Integer

For i = 1 To cb.Controls.Count


If cb.Controls(i).Caption = "&Открыть..." Then

ItemPosition = i + 1

Exit For

End If


Next

Set NewItem = cb.Controls.Add(Type:=msoControlButton, _

Before:=ItemPosition, _

Temporary:=True)

With NewItem

.Caption = "Нажми меня"

.OnAction = "DoPressMe"

End With


End Sub
Практическое задание


  1. Добавить в ранее созданное меню пользователя (Практическая работа №10), стандартные пункты меню Файл: Сохранить и Сохранить как…

  2. Добавить в стандартное меню новый пункт для запуска формы «Приказы по личному составу» из Практической работы №5

  3. Подготовиться к Контрольной работе №3

стр. из


Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azrefs.org 2016
rəhbərliyinə müraciət

    Ana səhifə