Access 2000 - курс лекций
e. Открытие формы
Обработка события. Данная функция начинает работать при открытии формы. В ней мы размещаем информацию о предварительных настройках окна калькулятора, до его отображения на экране.
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
08.06.2000 Виктор Конюков, mailto:LiderAccess@bigfoot.com
