| |
|
|
| | Скрываю окно Access 2003 - формы то же не видно - хоть ты лопни..... блин
http://hiprog.com/forum/files/9055-20110515142213.jpg | |
| |
| |
| |
|
|
| |
' Эти описания помещаем в модуль
Public Const SW_HIDE = 0
'Скрывает это окно и передает активацию к другому окну.
Public Const SW_MINIMIZE = 6
'Минимизирует окно и активизирует окно верхнего уровня в списке
'системы.
Public Const SW_RESTORE = 9
'Активизирует и отображает окно. Если окно минимизировано или максимизировано,
'Windows восстанавливает его к его первоначальному
'размеру и позиции.
Public Const SW_SHOW = 5
'Активизирует окно и отображает его в текущем размере и позиции.
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWMAXIMIZED = 3
'Активизирует окно и отображает его как максимизируемое окно.
Public Const SW_SHOWMINIMIZED = 2
'Активизирует окно и отображает его как значок.
Public Const SW_SHOWMINNOACTIVE = 4
'Отображает окно как значок. Окно, которое является в настоящее
'время активным, остается активным.
Public Const SW_SHOWNA = 8
'Отображает окно в его текущем состоянии. Окно, которое является в
'настоящее время активным, остается активным.
Public Const SW_SHOWNOACTIVATE = 7
'Отображает окно в его самом современном размере и позиции. Окно,
'которое является в настоящее время активным, остается активным.
Public Const SW_SHOWNORMAL = 1
'Активизирует и отображает окно. Если окно минимизировано или
'максимизировано, Windows восстанавливает его к первоначальному
'размеру и позиции.
Public Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal Hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Function fSetWindow(nHwnd As Long, nCmdShow As Long) As Long
' Примеры вызова функции :
'Maximize window - во весь экран:
' fSetWindow(nHwnd,SW_SHOWMAXIMIZED)
'Minimize window - свернуть в пиктограмму:
' fSetWindow(nHwnd,SW_SHOWMINIMIZED)
'Hide window - скрыть окно:
' fSetWindow(nHwnd,SW_HIDE)
'Normal window - нормальный размер:
' fSetWindow(nHwnd,SW_SHOWNORMAL)
On Error GoTo Err_fSetWindow
fSetWindow = apiShowWindow(nHwnd, nCmdShow)
Exit_fSetWindow:
Exit Function
Err_fSetWindow:
MsgBox Err.Description
Resume Exit_fSetWindow
End Function
|
использую вот это...
'Hide window - скрыть окно:
' fSetWindow(nHwnd,SW_HIDE) | |
| |
| |
| |
|
|
| | вот так пробуй
Popup= True так же и свойство «Модальное окно» (Modal) должно стоять в значении True. | |
| |
| |
|
|
| |
|
|
| | Теперь открыть снова окно не выходит... | |
| |
| |
| |
|
|
| | Измени размеры окна.......  | |
| |
| |
|
|
| |
|
|
| | Ну ты и бестолковый
УЖАС  | |
| |
| |
| |
|
|
| | Тихо сам с собою, правою рукою... 
Ты чего сам с собою-то рассуждаешь? Скучно что ли стало?
Скрытие окна акса у Лукаса "Ужас". Мною в настоящее время широко используется. Главное там, что бы все формы были всплывающими, что бы не пропадали. Модуль включается 2 строками при запуске главной формы.
Или я опять что-то не понял. 
Вот ссылка с примером и обсуждением. http://hiprog.com/forum/read.php?id_forum=1&id_theme=5641&page=1 | |
| |
| |
| |
|
|
| | Спасибо - я уже кончил -
разбираться с этим вопросом. | |
| |
| |
