| |
|
|
| | Помогите, пожалуйста, с таким вопросом: из текущего приложения на ACCESS вызываю другое, но оно отображается не на весь экран.Как сделать, чтобы оно высвечивалось в полноэкранном режиме? | |
| |
| |
| |
|
|
| | там чёта WindowsState
или Hide чет не помню - потому как никада не знал  | |
| |
| |
| |
|
|
| | прикольно!
WindowsState, к сожалению, в ACCESS отсутствует | |
| |
| |
| |
|
|
| | может, в вызываемом приложении в autoexec запихнуть "развернуть" какую-нить стартовую форму в которой:
Прислал: Дмитрий Сонных
Рекомендуется вставлять этот код в модуль формы, которая автоматически загружается при открытии базы данных, в секцию:
Form_Load()
Кроме того эта функция позволяет управлять размерами форм и отчетов.
Хендл (указатель) отчета можно узнать из Report.hWnd, а формы - из Form.hWnd .
Эту функцию можно так же использовать как переключатель между окнами.
' Эти описания помещаем в модуль
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
'----------------------------------------
'А теперь в форме делаем вызов функции
Private Sub Form_Load()
' разворачивание окна Access на весь экран.
fSetWindow Application.hWndAccessApp, SW_SHOWMAXIMIZED
End Sub
|
Опять же
http://hiprog.com/index.php?option=com_content&task=view&id=729&Itemid=35
Скачайте не поленитесь. | |
| |
| |
| |
|
|
| | Спасибо!
Я уже сам дошел и реализовал это через WinAPI, но все равно - за участие - спасибо!!! | |
| |
| |
|
|
