Access 2000 - курс лекций
b. Создание помощника
Ваша программа будет эффектно выглядеть, если Вы научитесь программировать помощника Access. Ниже написана функция, которая создает на экране сообщения в виде всплывающих ответов от «котенка».
Помните, что если Вы выключили помощника, то он при нажатии меню высвечиваться не будет, его необходимо включить снова.
Public Function funCreateAssistant()
Dim bln As Balloon, s As String
With Application.Assistant 'Выбираем помошника
.Visible = True 'Вывод на экран
.Animation = msoAnimationAppear 'Включаем анимацию
Set bln = .NewBalloon 'Создаем сообщение
With bln
.Heading = "Калькулятор позволяет" 'Устанавливаем заголовок
.Labels(1).Text = "Вводить выражения" 'Включаем меню 1
.Labels(2).Text = "Вводить формулы" 'Включаем меню 2
.BalloonType = msoBalloonTypeButtons 'Устанавливаем тип меню
.Button = msoButtonSetNone 'Отключаем клавиши помощника
Select Case .Show 'Отображаем помощника
Case 1: s = "23-456/35" 'Назначаем 1 сообщение
Case 2: s = "sin(0.5)" 'Назначаем 2 сообщение
End Select 'Конец вариантов
End With
Set bln = .NewBalloon 'Создаем нового помощника
With bln
.Heading = "Пример выражения" 'Устанавливаем заголовок
.Text = s 'Выводим назначенный текст, см. выше
.Button = msoButtonSetOK 'Отображаем клавишу OK
.Show 'Показываем помощника
End With
End With
End Function
