ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проверка перед максимизацией
12 сообщений из 12, страница 1 из 1
Проверка перед максимизацией
    #32458261
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
в форме на загрузку стоит

echo false
docmd.maximize
echo true


как сделать проверку что форма уже не максимизирована и запускать код только в этом случае.

желательно без апи.
...
Рейтинг: 0 / 0
26.03.2004, 12:24
| Ответить | Цитировать | Написать  
Проверка перед максимизацией
    #32459268
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Без API... Щас начнется обсуждение типа того, что было с различением печати и предпросмотра. Страниц через 12 найдется бубен.
...
Рейтинг: 0 / 0
26.03.2004, 21:17
| Ответить | Цитировать | Написать  
Проверка перед максимизацией
    #32459329
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Можно на Resize повеситься...

Можно при:
Код: plaintext
1.
2.
3.
echo false 
docmd.maximize 
echo true
считывать Height и Width , а затем сравнивать с текущими.
...
Рейтинг: 0 / 0
26.03.2004, 23:37
| Ответить | Цитировать | Написать  
Проверка перед максимизацией
    #32459336
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Height и Width в максимизированном виде вроде не меняются.
...
Рейтинг: 0 / 0
26.03.2004, 23:46
| Ответить | Цитировать | Написать  
Проверка перед максимизацией
    #32459338
Odess
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Odess
Участник
Вопрос - а зачем?
Пусть себе выполняется - не такая уж тяжелая штука для процессора ;-)
...
Рейтинг: 0 / 0
26.03.2004, 23:48
| Ответить | Цитировать | Написать  
Проверка перед максимизацией
    #32459342
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Кто-то кого-то не понял. :)
Ну да ладно... Автор придет - разберется :)
...
Рейтинг: 0 / 0
26.03.2004, 23:51
| Ответить | Цитировать | Написать  
Проверка перед максимизацией
    #32460133
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
тема такая, что у меня все формы, кроме диалогов разработаны под максимизацию

поэтому ставлю в начало каждой формы этот код.
в принципе отслеживать что размер изменился нужды нет - хочешь не максимальный размер - пожалуста

только обратил внимание что операция максимизации сжирает много времени если форма слишком сложная в том числе происходит событие активэйт а если ему назначен код - то со всеми вытекающими...

можно конечно сделать флаг и если пока идет максимизация - долгоиграющие процедуры не выполнять

вот мне и подумалось может кто делал - чего огород городить?
а оказалось что не все так просто..
...
Рейтинг: 0 / 0
29.03.2004, 09:53
| Ответить | Цитировать | Написать  
Проверка перед максимизацией
    #32461258
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Вот, в хелпе a2002 встретил:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
' Enter on single line in Declarations section of Module window.'
Declare Function IsZoomed Lib  "user32"  (ByVal hWnd As Long) As Long

Sub Form_Activate()
    Dim intWindowHandle As Long
    intWindowHandle = Screen.ActiveForm.hWnd
    If Not IsZoomed(intWindowHandle) Then
        DoCmd.Maximize
    End If
End Sub
...
Рейтинг: 0 / 0
29.03.2004, 17:52
| Ответить | Цитировать | Написать  
Проверка перед максимизацией
    #32461262
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
спасибки, то что нужно.
буду пробовать
...
Рейтинг: 0 / 0
29.03.2004, 17:55
| Ответить | Цитировать | Написать  
Проверка перед максимизацией
    #32461266
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
а просил без API
...
Рейтинг: 0 / 0
29.03.2004, 17:56
| Ответить | Цитировать | Написать  
Проверка перед максимизацией
    #32461294
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
все отлично, работает.
правда немножко подправил и вынес в публичный модуль для общего пользования

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Declare Function IsZoomed Lib  "user32"  (ByVal hWnd As Long) As Long

Sub FormMaximize()
On Error Resume Next
    If Not IsZoomed(Screen.ActiveForm.hWnd) Then
        Echo False
        DoCmd.Maximize
        Echo True
    End If
End Sub


в OnLoad формы :

call FormMaximize
...
Рейтинг: 0 / 0
29.03.2004, 18:06
| Ответить | Цитировать | Написать  
Проверка перед максимизацией
    #32461295
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
дык если былоб стандартное средство - а ведь нет
...
Рейтинг: 0 / 0
29.03.2004, 18:07
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проверка перед максимизацией
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32461262&tid=1675727]:
 0ms
get settings:
 8ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 180ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 198ms
total:  484ms
созд. / загр.: 484ms
x
x
Закрыть


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