Иллюстрированный самоучитель по Outlook2002


Объектная модель Office XP - часть 2


/p>

В программе 21.2 мы рассмотрим объекты Assistant и Balloon, использование которых улучшает взаимосвязь пользователя с приложением. Сначала мы узнали имя текущего Помощника, после чего, воспользовавшись методом объекта Assistant, создали новое окно и вывели в него полученную информацию.

Программа 21.2. Использование объектов Assistant и Balloon

Sub ShowAssistant()

blnName = Application.Assistant.Name

Dim bin As Balloon

Set bin = Application.Assistant.NewBalloon

With bin

.Heading = "Привет!"

.Icon = msoIconTip

.Text = "Меня зовут " + blnName + "."

.Show End With End Sub




Начало  Назад  Вперед



Книжный магазин