Факультет Математики и Информатики ГрГУ: Добавление и модификация надписей

Вход

Главная страница >> Учебный процесс >> Конспекты >> MS Office. Руководство программиста по Visual Basic для MS Office 97 >> Microsoft Office Assistant >> Использование сообщений Microsoft Office Assistant >> Добавление и модификация надписей

Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by

[Назад] [Содержание ] [Вперед]

Добавление и модификация надписей

В сообщение можно вставить 3 типа надписей (labels): нумерованные, маркированные и кнопочные. Всего в сообщении допускается не более 5 надписей, но все они должны быть одного типа ? смешивать нумерованные, маркированные и кнопочные надписи в одном сообщении нельзя. Чтобы указать нужный тип надписей, запишите в свойство BalloonType сообщения одну из следующих msoBalloonType-констант: msoBalloonTypeNumbers, msoBalloonTypeBullets или msoBalloonTypeButtons. Получить обьект BalloonLabel, представляющий любую из надписей, позволяет выражение] Labels (index), где index ? номер от 1 до 5. Текст надписи помещается в свойство Text объекта BalloonLabel.

Примечание: Если Вы сделаете ссылку на надпись с номером, большим 5, произойдет ошибка.

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

Set bln = Assistant. NewBalloon
With bln
     .Mode = msoBalloonModal
     .Button = msoButtonSetOK
     .BalloonType = msoBalloonTypeBullets
     .Heading = "Tips for locating output"
     .Text = "It you cannot locate the output log, consider the following;"
     .Labels(1).Text = "Check the current folder name in the Save dialog box."
     .Labels(2).Text = "Make sure you type the file name correctly."
     .Labels(3).Text = "If you saw the Empty File message, no log was created "
     ret = .Show
End With

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

Следующая программа создает список из трех кнопочных надписей. Переменной x присваивается значение, возвращаемое методом Show; оно равно 2 или 3 в зависимости от того, какую кнопку щелкнул пользователь (кнопка ОК отсутствует). В этом примере значение переменной x просто покажется в окне, но ничто не мешает передать его другой процедуре или использовать в выражении Select Case.

Set b = Assistant. NewBalloon
With b
     .Mode = msoModeModal
     .Button = msoButtonSetNone
     .Heading = "Balloon heading"
     .Text = "Select one of these things:"
     .Labels(1).Text = "Choice One"
     .Labels(2).Text = "Choice Two"
     .Labels(3).Text = "Choice Three"
     x = .Show
End With
MsgBox x

В следующем примере программа запрашивает, на каком принтере печатать документ ? сетевом или локальном. Это сообщение немодальное, и пользователь может продолжить работу с приложением, но сообщение останется на экране и будет напоминать, что печать не начнется, пока не выбран принтер. Процедура ProcessPrinter должна определить, какую кнопочную надпись щелкнул пользователь, и, выполнив соответствующие операции, закрыть сообщение.

Set bin = Assistant.NewBalloon
With bin
     .Mode = msoModeModeless
     .Button = msoButtonSetNone
     .Heading = "Select A Printer"
     .Text = "You must select a printer before printing."
     .Icon = msolconAlert
     .Labels(1).Text = "Local printer"
     .Labels(2).Text = "Network printer"
     .Callback = "ProcessPrinter"
     ret = .Show
End With

Подробнее о свойстве Callback немодального сообщения см. раздел ?Использование процедур обратного вызова?.

[Назад] [Содержание ] [Вперед]

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997