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

Чтобы вывести флажки в окне помощника, используется свойство CheckBox объекта Balloon. Одновременно в окне можно отобразить не больше пяти флажков. Для доступа к флажку необходимо указать его индекс. Например, чтобы работать с третьим флажком, укажите следующую инструкцию:

CheckBoxes(3)

Свойство Text используется для задания текста, связанного с флажком Порядок флажков определяется их индексами (рис.3).

Рис. 3 Использование флажков

В программе 11 показано использование свойства CheckBoxes.

Программа 11. Использование флажков

Public Sub CheckBoxesDemo()
     Set MyAssistant = Assistant
     Set NewBalloon = MyAssistant.NewBalloon
     MyAssistant.Animation = msoAnimationSearching
     With NewBalloon
          .Heading = "Вывод раздела справки"
          .Text = "Укажите способ вывода справки"
          .CheckBoxes(1).Text = "Печать раздела справки"
          .CheckBoxes(2).Text = "Вывод раздела справки"
          .CheckBoxes(3).Text = "Установить по умолчанию печать раздела справки"
     End With
     NewBalloon.Show
End Sub

Вероятно потребуется проверить, установлены ли флажки, выведенные в окне помощника или сброшены. Для этого используется свойство Checked.

В программе 12 показано, как запустить нужную подпрограмму, определив состояние флажка.

Программа 12. Использование флажков в окне помощника.

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(2).Checked
                    'Вывод раздела
               Case .Checkboxes(3).Checked
                    'Задание флажка по умолчанию
          End Select
     End With
End Sub

Для комментария : kadan@grsu.grodno.by