LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 17 мая 2024
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Может ком...
 Тема: Может кому пригодится...
 
 15.06.2007 19:58:15
Andrey5
9 сообщения


Тема: Может кому пригодится...
Здравствуйте!
Раньше я задавал вопрос о том, как убрать крестик Close [х] Accessa...
Спасибо Виктору Конюкову за ответ. Он помог мне убрать команду Выход в меню Файл, но вопрос с [х] оставался открытым. Короче нарыл я следующее - http://msa.km.ru/msa/access/article.asp?idd=34 автор Прус Юрий. Я попробовал у меня получилось.
Успехов



P.S. Общие вопросы по базе данных
Автор: Andrey от 15.11.2001 17:50:13 Источник ...
 15.06.2007 19:58:15
All
4316 сообщения
1-ый


RE: Может кому пригодится...
Замечание по примеру:
Для этого совсем не обязательно создавать класс
Здесь работают только ф-ии api


hMenu = GetSystemMenu(hwnd, 0)
EnableMenuItem hMenu, SC_CLOSE, MF_BYCOMMAND
или
DeleteMenu hMenu, SC_CLOSE, MF_BYCOMMAND

Const MF_BYCOMMAND = &H0&
Const SC_MAXIMIZE = &HF030&
Const SC_CLOSE = &HF060&
Const SC_MINIMIZE = &HF020&
Const SC_RESTORE = &HF120&
Const MF_BYPOSITION = &H400&






P.S. Общие вопросы по базе данных
Автор: Николай от 0:00:00 Источник ...
 15.06.2007 19:58:15
Andrey5
9 сообщения


RE: Может кому пригодится...
Здравствуйте!
Николай, если вас не затруднит распишите подробнее про ваш вариант. Где это все надо писать и т.д.
Спасибо


P.S. Общие вопросы по базе данных
Автор: Andrey от 16.11.2001 9:25:19 Источник ...
 15.06.2007 19:58:15
All
4316 сообщения
1-ый


RE: Может кому пригодится...
Вставьте код в любой модуль (или создайте отдельно)
создайте макрос AutoExec для запуска функции
(или другим способом)

Option Compare Database
Option Explicit

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Function EnabledMenu()
Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_MAXIMIZE = &HF030&
Const SC_CLOSE = &HF060&
Const SC_MINIMIZE = &HF020&
Const SC_RESTORE = &HF120&
Const MF_BYPOSITION = &H400&
Const SW_MAXIMIZE = 3

Dim hMenu As Long
ShowWindow Application.hWndAccessApp, SW_MAXIMIZE
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
DeleteMenu hMenu, SC_CLOSE, MF_GRAYED
DeleteMenu hMenu, SC_MAXIMIZE, MF_GRAYED
DeleteMenu hMenu, SC_RESTORE, MF_GRAYED
DeleteMenu hMenu, SC_MINIMIZE, MF_GRAYED

End Function



P.S. Общие вопросы по базе данных
Автор: Николай от 0:00:00 Источник ...
 15.06.2007 19:58:15
All
4316 сообщения
1-ый


RE: Может кому пригодится...
Вставьте код в любой модуль (или создайте отдельно)
создайте макрос AutoExec для запуска функции
(или другим способом)

Option Compare Database
Option Explicit

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Function EnabledMenu()
Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_MAXIMIZE = &HF030&
Const SC_CLOSE = &HF060&
Const SC_MINIMIZE = &HF020&
Const SC_RESTORE = &HF120&
Const MF_BYPOSITION = &H400&
Const SW_MAXIMIZE = 3

Dim hMenu As Long
ShowWindow Application.hWndAccessApp, SW_MAXIMIZE
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
DeleteMenu hMenu, SC_CLOSE, MF_GRAYED
DeleteMenu hMenu, SC_MAXIMIZE, MF_GRAYED
DeleteMenu hMenu, SC_RESTORE, MF_GRAYED
DeleteMenu hMenu, SC_MINIMIZE, MF_GRAYED

End Function



P.S. Общие вопросы по базе данных
Автор: Николай от 0:00:00 Источник ...
 Страница 1 из 2
СледующийПредыдущийНет оценки
12Следующий 
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Может ком...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke