|
|
|||||||||||||||||||||||||||||
|
Открытие формыОбработка события. Данная функция начинает работать при открытии формы. В ней мы размещаем информацию о предварительных настройках окна калькулятора, до его отображения на экране. Private Sub Form_Open(Cancel As Integer)subBarOff 'Выключить все меню и строку состояния
'Настроить всплывающие подсказки кнопок Me.кнВыход.ControlTipText = "Выход из программы" Me.кнПечать.ControlTipText = "Печать отчета о расчетах" Me.кнРасчет.ControlTipText = "Расчет данных на калькуляторе" Me.кнСброс.ControlTipText = "Сбросить все вычисления"
'Меняем настройки окна, установленные по умолчанию Me.Caption = "Мой калькулятор" 'Заголовок Me.ScrollBars = 0 'Полосы прокрутки Me.RecordSelectors = False 'Область выделения Me.NavigationButtons = False 'Кнопки перехода Me.DividingLines = False 'Разделительные линии
'Меняем настройки списка задач Me.Список.BackColor = 8421376 'Цвет фона символов Me.Список.ForeColor = RGB(255, 255, 255) 'Цвет символов
'Устанавливаем события Me.Выражение.AfterUpdate = "[Event Procedure]" 'После обновления Me.кнВыход.OnClick = "[Event Procedure]" 'Нажатие кнопки Me.кнПечать.OnClick = "[Event Procedure]" 'Нажатие кнопки Me.кнРасчет.OnClick = "[Event Procedure]" 'Нажатие кнопки Me.кнСброс.OnClick = "[Event Procedure]" 'Нажатие кнопки
'Настраиваем параметры приложения DoCmd.RunCommand acCmdAppMaximize ‘Увеличиваем приложение On Error Resume Next ‘Отключаем диагностику ошибок меню Me.MenuBar = "Калькулятор" ‘Устанавливаем меню Err.Clear ‘Очищаем поток от ошибки End SubСсылки по теме
|
|