(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Стартовая (главная) форма приложения

 

Пробовал я как-то изменять цвет серого фона MDI окна Access. Ну, даже картинку можно положить, чтобы закрыть эту стандартную серость.... Не то....

Немного поразмыслив, я подумал, а что если брать стартовую (первую открывающуюся) форму и растягивать ее на весь экран? Отлично, имея форму и весь присущий ей богатый функционал, мы можем разместить на ней любые компоненты, а используя события, эффективно управлять этими компонентами...

Тут же возникли проблемы. Если мы раскрываем хоть одну форму на весь экран, будьте уверены, остальные формы тотчас последуют ее примеру :). Это стандарт MDI (многодокументного интерфейса). Поэтому пользоваться DoCmd.Maximize приходится с большой оглядкой.... Но даже если Вас съели, все равно есть выход ;).

Я нашел простой способ:

Dim lngFormHeight As Long
Dim lngFormWidth As Long
 

DoCmd.Echo False ' отключаем прорисовку, чтобы не отображать дергания экрана
DoCmd.Maximize ' развернем форму на весь экран
lngFormWidth = Me.InsideWidth 'сохраним ширину на данный момент
lngFormHeight = Me.InsideHeight 'сохраним высоту на данный момент
DoCmd.Restore 'восстановим
DoCmd.MoveSize 0, 0, lngFormWidth, lngFormHeight 'разместим по полученным координатам
DoCmd.Echo True  'включаем прорисовку

Все! теперь стартовая форма покрывает всю доступную область экрана, но не развернута на весь экран - это важно. Конечно, тип границы у нее должен отсутствовать, и все полосы прокрутки отключены...

небольшие дополнения, можно сказать штрихи...

Я всегда убираю панели инструментов с экрана. Все панели инструментов простым циклом отключать нельзя (да и дольше), при скрытии некоторых Access (ХР, 2003) просто вылетает с ошибкой. Поэтому просто скрываем стандартные панели и строку меню:

DoCmd.ShowToolbar ("Menu Bar"), acToolbarNo
DoCmd.ShowToolbar ("Database"), acToolbarNo
DoCmd.ShowToolbar ("Web"), acToolbarNo
DoCmd.ShowToolbar ("Formatting (Form/Report)"), acToolbarNo
DoCmd.ShowToolbar ("Form View"), acToolbarNo
 

также выполняю некоторые настройки среды Access:

Application.SetOption "ShowWindowsInTaskbar", False ' отключаем окна в панели задач
Application.SetOption "Show Status Bar", False ' отключаем строку состояния
 

Понятно, что код сокрытия панелей и строки состояния должен вызываться раньше разворота стартовой формы на весь экран, иначе останутся полосы от скрытых панелей меню или строки состояния.

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 10.10.2007 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Microsoft Office для дома и учебы 2019 (лицензия ESD)
Microsoft Office 365 Профессиональный Плюс. Подписка на 1 рабочее место на 1 год
Microsoft Office 365 для Дома 32-bit/x64. 5 ПК/Mac + 5 Планшетов + 5 Телефонов. Подписка на 1 год.
Microsoft Windows Professional 10, Электронный ключ
Microsoft Office 365 Персональный 32-bit/x64. 1 ПК/MAC + 1 Планшет + 1 Телефон. Все языки. Подписка на 1 год.
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Краткие описания программ и ссылки на них
Компьютерная библиотека: книги, статьи, полезные ссылки
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100