Премахване на главния прозорец бутони цял екран

Публикувано от Андрей Protasovitski
Доброто здраве!

Публикувано от Сергей Потапов

Публикувано от Андрей Protasovitski
И, можете да деактивирате стандартните клавишни комбинации, а след това на потребителя
Тя няма да направи нищо повече не може да се направи. Включително тези, причинени от прозореца
DB на F11.

Можете, разбира се, добре, аз ще отида, ако как тогава какво? )

Съставено така - удобни и красиви.
Е форма на "За". - там. да речем, една картина на двойна кликване
виси Shft забрана и F11, и така нататък.
но на конец виси друг контрол депротекция.

Трябва да дадем една програма - DBL-кликнали, защитата е работил и читав,
сигурен. че не Продробно потребителят не влиза и не направи топки от базата данни.

победител
По-долу - кода за защита и raszaschity.
Той може да не работи, ако не се свърже всяка нишка важна библиотека. мой
свързани с тях> 10 единици и кои от тях е отговорен за кода по-долу - не си спомнят,
Извинете. Е, не дай Боже - да печелят
"------------------------------------------------- --------------------------
-----
Публична Sub SetStartupProperties_Disabled ()
"BAN
ChangeProperty "StartUpForm", dbText "Застава" Старт
форма
ChangeProperty "StartUpMenuBar", dbText "Tt_MainMenu" "Панел Наименование
меню, което ще се използва по подразбиране
ChangeProperty "StartupShortcutMenuBar", dbText "SortFilterExport"
"Името контекстното меню, което ще се използва по подразбиране
ChangeProperty "StartupShowDBWindow", dbBoolean, False "прозорец база данни
ChangeProperty "StartupShowStatusBar", dbBoolean, True "Row
състояние - нека да бъде
ChangeProperty "AllowBuiltinToolbars", dbBoolean, False "Дисплей
вградени ленти с инструменти
ChangeProperty "AllowFullMenus", dbBoolean, False "Пълното
вградени системното меню при стартиране
, False бутон ChangeProperty "AllowBreakIntoCode", dbBoolean "
отстраняване на грешки
ChangeProperty "AllowSpecialKeys", dbBoolean, False "Специална
ключове
ChangeProperty "AllowBypassKey", dbBoolean, False "режим
стартирате приложението, докато държите натиснат SHIFT
ChangeProperty "AllowShortcutMenus", dbBoolean, False "Дисплей
контекстни менюта
"ChangeProperty" AutoCompact ", dbBoolean, True" Компресиране
в края
MsgBox "до защитата на време ще бъде активиран!", VbExclamation
End Sub
"------------------------------------------------- --------------------------
-----
Публична Sub SetStartupProperties_Enabled ()
"Резолюция
DeleteProperty "StartupForm" Старт
форма
DeleteProperty "StartUpMenuBar" "Панел Наименование
меню, което ще се използва по подразбиране
DeleteProperty "StartupShortcutMenuBar" "Наименование
контекстното меню, което ще се използва по подразбиране
ChangeProperty "StartupShowDBWindow", dbBoolean, False "прозорец база данни
(False-не печат)
ChangeProperty "StartupShowStatusBar", dbBoolean, True "Row
състояния
ChangeProperty "AllowBuiltinToolbars", dbBoolean, True "Интегриран
лента с инструменти
ChangeProperty "AllowFullMenus", dbBoolean, True "Пълното
вградена система за стартиране на менюто
, True бутон ChangeProperty "AllowBreakIntoCode", dbBoolean "
Отстраняване на грешки.
ChangeProperty "AllowSpecialKeys", dbBoolean, True "Специална
ключ.
ChangeProperty "AllowBypassKey", dbBoolean, True "режим
стартирате приложението, докато държите натиснат SHIFT
ChangeProperty "AllowShortcutMenus", dbBoolean, True "Дисплей
контекстни менюта
"ChangeProperty" AutoCompact ", dbBoolean, False" Компресиране
в края
MsgBox "до защитата на време е изключен!", VbExclamation
End Sub

DeleteProperty = False
Задайте DBS = CurrentDb
На Error GoTo Change_Err
dbs.Properties.Delete (strPropName)
DeleteProperty = True
Задайте DBS = Нищо

Change_Bye:
Exit Function
Change_Err:
Възобновяване Change_Bye
Крайна Длъжност
"------------------------------------------------- --------------------------
-----
Публична Функция CheckProperty (strPropName Както стринга) Както Variant
Дим DBS като бази данни, PRP Като имота
На Error GoTo Check_Err

Задайте DBS = CurrentDb
CheckProperty = dbs.Properties (strPropName)
Задайте DBS = Нищо

Check_Bye:
Exit Function
Check_Err:
CheckProperty = False
Възобновяване Check_Bye
Крайна Длъжност
"------------------------------------------------- --------------------------
-----
Публична Функция ChangeProperty (strPropName Както стринга, varPropType Като
Вариант, varPropValue Като вариант) Както булева
Дим DBS като бази данни, PRP Като имота
Строителство conPropNotFoundError = 3270

Задайте DBS = CurrentDb
На Error GoTo Change_Err
dbs.Properties (strPropName) = varPropValue
ChangeProperty = True
Задайте DBS = Нищо

Change_Err:
Ако Err = conPropNotFoundError Тогава "имот не е намерен.
Задайте PRP = dbs.CreateProperty (strPropName, varPropType, varPropValue)
dbs.Properties.Append PRP
Възобновяване Следваща
още
"Неизвестна грешка.
ChangeProperty = False
"MsgBoxErr" ChangeProperty "
Възобновяване Change_Bye
Крайна сметка, ако
Крайна Длъжност
"------------------------------------------------- --------------------------
-----

SP> Ако разбирам правилно - да започне възможности и трябва да премахнете от менюто
SP> Достъп стандарт контролния панел.

Vaascheto Не. Исках да се премахне бутона за намаляване, се разгръща
Затварянето на главния прозорец Acces. И това е така, защото ние знаем :)))

SP> правя повече и скриване на прозореца на базата данни и автоматично стартиране на някаква форма
SP> (напр. Shapes вход). И тогава на потребителя (ако той не знае за
бутон
SP> Shift) трудно да се използват конвенционални средства за контрол
SP> основа. Но само на факта, че съм позволено.
SP> И кой знае бутона Shift - за ръка, ръка в ръка. )))

Публикувано от Виталий Tkachenko
Vaascheto Не. Исках да се премахне бутона за намаляване, се разгръща
Затварянето на главния прозорец Acces. И това е така, защото ние знаем :)))

Ами сега. Извинете. И тук аз не знам. (
Може ли да попитам защо такава необходимост? Можем да го и аз трябва да.

Публикувано от Виталий Tkachenko
Vaascheto Не. Исках да се премахне бутона за намаляване,
разгръщане, затворете главния прозорец Acces. И това е така, защото ние знаем,
:)))

SP> Ами сега. Извинете. И тук аз не знам. (
SP> Може ли да попитам защо такава необходимост? Можем да го и аз трябва да.

Възможно Kanesh - това е за информация за клиентите на дисплея. Тук идва на мъжа
в офиса. И тук в залата стои таблото. Само борда (т.е. екрана
с "в" на мишката;) С Клаудия в съответствие с това, че все още Ницше не, но за
tyknet кама и започна да се изкачва на компютър, програма план? само ще
някои конци аркадна proinstalit там;)))) Ще има мини-игра клуб :))
Така че сериозно: форма е минимизиран всички панели и менюто на основния прозорец
също минимизиран в лентата със задачи на Windows може да podkotsnut, но sabzhevoy
копчетата не са отстранени :))). или по-скоро: (((
Идеята е, че в дълбока система Windows, можете да промените вида на прозорци, или събития
намеси и да отмени. hWnd главния прозорец получава - значи е възможно.
Да, затваряне аз все още може да се намеси и да отмени, но сгъването
разгръщането на основния прозорец -.

Публикувано от Виталий Tkachenko
Да, затваряне аз все още може да се намеси и да отмени, но сгъването
разгръщането на основния прозорец -.

Да. ясен. Не, аз все още не е застрашено. )
Успех или иначе.

Идеята е това.
Първата форма - поп,
във форма няма заглавие (в SV-въх образува граничен тип - Nike)
развивам формата на целия екран

Оказва се, че нещо подобно.
Опитах се за дълго време, не е нищо да се търси пълна prilozhdeniya.

И като цяло, по-специално за akesny бутони - изглежда, че са видели в книгата
"Access - Корпоративни приложения." Но аз не си спомням, за съжаление.
Книгата се продава и необикновено ми препоръчва да се използват.
Prenaimegapolezneyshaya книга (2 тома) беше за мен, докато учи.