|
|
|||||||||||||||||||||||||||||
|
Создание помощникаВаша программа будет эффектно выглядеть, если Вы научитесь программировать помощника 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Ссылки по теме
|
|