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

 



Содержание раздела