Стартова (головна) форма програми, MS Office, Програмні керівництва, статті

 

Пробував я якось змінювати колір сірого фону 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 “відключаємо рядок стану
 


Зрозуміло, що код приховування панелей і рядка стану повинен викликатися раніше розвороту стартовою форми на весь екран, інакше залишаться смуги від прихованих панелей меню або рядка стану.

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*