Объектно-ориентированный подход в программировании. Проектирование и реализация приложений в среде Microsof Office. Евсеева О.Н. - 74 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

1.4. Программирование на VBA 75
3
или нумерованного списка. Тип надписи определяет значение свойства
BalloonType, которое задается с помощью констант:
msoBalloonTypeButtons (применяется по умолчанию)
msoBalloonTypeBullets
msoBalloonTypeNumbers
При использовании кнопок в окне Помощника (в модальном или
автоматически исчезающем сообщении), чтобы определить, какую кнопку
нажал в окне пользователь, анализируют возвращаемое методом Show
значение, которое равно индексу нажатой кнопки (надписи). Если сообщение
немодальное, то метод Show возвращает второй параметр, передаваемый
процедуре обратного вызова.
При работе с немодальным сообщением, когда пользователь щелкает элемент
управления или кнопку, происходит обращение к
процедуре обратного
вызова
. Ваша программа должна содержать такую процедуру (ее имя
указывается в свойстве Callback), так как именно она-то и реагирует на
действия пользователя. Каждая процедура обратного вызова должна иметь три
параметра: объект Balloon, который активизировал процедуру; возвращаемое
значение, соответствующее нажатой пользователем кнопке; и целое число,
которое уникально идентифицирует объект Balloon, вызвавший процедуру.
Sub TestCallback()
Set bln = Assistant.NewBalloon
With bln
.Heading = "Выбор принтера"
.Text = "Нажмите OK после выбора принтера."
.Labels(1).Text = "Сетевой принтер"
.Labels(2).Text = "Локальный принтер"
.Labels(3).Text = "Локальный цветной принтер"
.BalloonType = msoBalloonTypeButtons
.Mode = msoModeModeless
.Callback = "ProcessPrinter"
.Button = msoButtonSetOK
.Show
End With
End Sub
Sub ProcessPrinter(bln As Balloon, ibtn As Long, _
iPriv As Long)
Assistant.Animation = msoAnimationPrinting
Select Case ibtn

Страницы