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

Программирование содержимого окна помощника.

Используя VBA, можно задать содержимое окна помощника, включив в список разделов такие элементы как заголовок окна, текст и маркированный или нумерованный список. В свойстве Heading хранится текст заголовка окна помощника. В свойстве Text хранится текст, который выводится между заголовком и надписями. Свойство Label используется для создания надписей, которые обычно образуют описание последовательности действий или другой список. Каждое окно помощника может включать до пяти надписей. Для задания текста надписи используется ее индекс. С помощью свойства BalloonType можно задать, чем являются надписи — либо кнопками, либо элементами маркированного или нумерованного списка. В качестве значений данного свойства используются следующие константы:

MsoBalloonTypeButtons — применяется по умолчанию

msoBalloonTypeBullets

msoBalloonTypeLabels

Чтобы определить, какую кнопку нажал пользователь в окне помощника, используется значение, возвращаемое методом Show объект Balloon, которое равно индексу нажатой кнопки(надписи). Например:

X = NewBalloon.Show

Msgbox str$(X)

Переменной X присвоится значение индекса нажатой кнопки.

Для задания в окне требуемых действий можно использовать флажки (CheckBox). Чтобы вывести флажки в окне помощника, используется свойство CheckBox объекта Balloon (не более пяти флажков). Для доступа к флажку необходимо указать его индекс (CheckBoxs(3)). Для проверки того, установлен или сброшен флажок, используется свойство Checked.

Public Sub CheckBoxDemo()

Dim Myassistant As Assistant

Set Myassistant = Assistant

Set NewBalloon = Myassistant.NewBalloon

Myassistant.Animation = msoAnimationSearching

With NewBalloon

.Heading = «Вывод раздела справки»

.Text = «Укажите способ вывода справки»

.CheckBoxes(1).Text = «Печать раздела справки»

.CheckBoxes(2).Text = «Вывод раздела справки»

.CheckBoxes(3).Text = «Установить по умолчанию печать раздела справки»

NewBalloon.Show

Select Case True

Case .CheckBoxes(1).Checked

’печать раздела

Case .CheckBoxes(1).Checked

’вывод раздела

Case .CheckBoxes(1).Checked

’задание флажка по умолчанию

End Select

End With

End Sub