Как зафиксировать размер окна формы

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Bengan
Сообщения: 19
Зарегистрирован: 08 янв 2008, 13:41

Создал базу, все работает ОК!
Выложил на сервер, то есть теперь к ней есть доступ у многих.

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

Можно ли как то зафиксировать окно формы, так чтобы его нельзя было бы свернуть.

Еще один вопрос: как при загрузке сделать так, чтобы форма была развернута на вес' экран.


Спасибо
Teslenko_EA
Сообщения: 526
Зарегистрирован: 04 фев 2007, 18:37
Откуда: Сургут
Контактная информация:

Здравствуйте Bengan.
Если речь о MS Access
Рекомендации:
1. сделать форму модальной
2. сделать форму всплывающей
3. Задать тип границы -"Окна диалога"
4. в параметрах запуска отключить "Окно базы данных"
5. на событие изменетия размера после проверки реальныых размеров можно установить закрытие приложения: DoCmd.Quit
6. на событие Form_Open или Form_Activate установить DoCmd.Maximize

Упражняйтесь.
Евгений.
Bengan
Сообщения: 19
Зарегистрирован: 08 янв 2008, 13:41

Спасибо за советы,
не понял что значит модальная форма,
(я работаю на немецкой версии),
"pop up" - я так понимаю всплывающая форма,
"Окна диалога" !?
Не мог ли бы вы англиский аналог сказать

Еще раз спасибо
Teslenko_EA
Сообщения: 526
Зарегистрирован: 04 фев 2007, 18:37
Откуда: Сургут
Контактная информация:

Здравствуйте Bengan.
думаю в немецкой версии так же как в русской HELP английский.

From help MS Access:

Код: Выделить всё

Example
The following example sets the "Switchboard" form to be a modal pop-up form that has just a Close button.

With Forms("Switchboard")
    .PopUp = True
    .Modal = True
    .BorderStyle = 3 ' Dialog style.
End With
поместите подобный код в процедуру загрузки формы, можно поэкспериментировать ;-)
Удачи Вам.
Евгений.
Bengan
Сообщения: 19
Зарегистрирован: 08 янв 2008, 13:41

Teslenko_EA писал(а):Здравствуйте Bengan.
думаю в немецкой версии так же как в русской HELP английский.
help tozhe na nemetckom


no malo po malu ponjatno,

jasno v kakom napravlenii rabotat'
Bol'shoe spasibo
Ответить