Основы VBA. Часть 11

Задание поведения помощника.

Поведение помощника определяют следующие свойства:

· Свойство MoveWhenInTheWay задает перемещение помощника на свободное место, чтобы не мешать действиям пользователя, например, редактированию текста.

Set Myassistant = Assistant

Myassistant. MoveWhenInTheWay = True

· Свойство AssistWithAlerts задает автоматический вывод справочных данных при возникновении ситуаций, приводящих к отображению предупреждения, например, если пользователь может потерять несохраненные данные.

Set Myassistant = Assistant

Myassistant. AssistWithAlerts = True

Свойство GuessHelp определяет вывод списка советов при нажатии клавиши . При этом помощник отображает по его мнению наиболее важные советы, которые предположительно могут потребоваться при выполнении последующих действий.

Set Myassistant = Assistant

Myassistant.GuessHelp = True

Свойство FeatureTips определяет вывод списка разделов справки по работе с выбранным средством.

Set Myassistant = Assistant

Myassistant.FeatureTips = True

Отображение окна помощника.

Назначение помощника заключается в выводе списка разделов справки. При работе с окном помощника используется объект Balloon, для создания которого необходимо воспользоваться методом NewBalloon объекта Assistant. Создав объект Balloon и задав его содержимое, необходимо отобразить этот объект. Для вывода объекта Balloon используется его метод Show.Пример процедуры создания объекта Balloon:

Public Sub CreateBalloonObject ()

Dim Myassistant as Assistant

Dim MyBalloon As Balloon

Set Myassistant = Assistant

Set MyBalloon = MyAssistant.NewBalloon

MyBalloon.Show

End Sub

Разделы справки задаются в объекте Balloon:

Public Sub BalloonShowDemo()

Dim Myassistant As Assistant

Set Myassistant = Assistant

Set NewBalloon = Myassistant.NewBalloon

Myassistant.Animation = msoAnimationSearching

With NewBalloon

.Heading = «Здоровье»

.Text = «Как сохранить здоровье»

.Labels(1).Text = «Правильно питайтесь»

.Labels(2).Text = «Отдыхайте»

.Labels(3).Text = «Избегайте стрессов»

.Labels(4).Text = «Больше смейтесь»

.Labels(5).Text = «Читайте книги по Visual Basic»

End With

NewBalloon.Show

End Sub