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 ‘Очищаем поток от ошибки

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

---