powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как определить максимизирована ли форма ?
4 сообщений из 4, страница 1 из 1
Как определить максимизирована ли форма ?
    #32891394
Фотография Rafa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как определить - максимизирована ли форма ?
Вот раскопал где-то код, показывающий максимизирована ли форма в данный момент. Стандартных методов для определения этого Access, похоже, не предоставляет...

Private Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long

Sub FormMaximize()
If Not IsZoomed(Screen.ActiveForm.hwnd) Then
Echo False
DoCmd.Maximize
Echo True
End If
End Sub

есть ли стандартные способы без АПИ ?
...
Рейтинг: 0 / 0
Как определить максимизирована ли форма ?
    #32891402
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну не предоставляет. Вам шашечки или ехать?
В Powerbuilder и Centura тоже приходится использовать API.
...
Рейтинг: 0 / 0
Как определить максимизирована ли форма ?
    #32891403
Фотография Rafa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
также код для определения, минимизирована ли форма (выбрано из MSDN для полноты сравнения):

Declare Function IsIconic Lib "User32" (ByVal hWnd As Long) As Integer

If IsIconic(Me.hWnd) * -1 Then
Echo False
DoCmd.Restore
Echo True
End If

просто щас статью на сайт рисую не хотелось бы чего-нить пропустить ;))))
...
Рейтинг: 0 / 0
Как определить максимизирована ли форма ?
    #32891415
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Боишься сдублировать стандартную фунциональность?
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как определить максимизирована ли форма ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]