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

Что-то никак не могу найти, как определить внутренний размеры главного окна Access чтобы впритык к правому-нижнему углу передвинуть форму.

Надо обращаться к функции API или есть какая-нибудь VBA функция?

Димс.

P.S. Access 2002
...
Рейтинг: 0 / 0
14.06.2004, 01:34
| Ответить | Цитировать | Написать  
Разместить форму впритык к правому-нижнему углу главного окна
    #32559983
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
На открытие формы:
Код: plaintext
DoCmd.MoveSize  3000 ,  3000 ,  11920 ,  7200
...
Рейтинг: 0 / 0
14.06.2004, 03:38
| Ответить | Цитировать | Написать  
Разместить форму впритык к правому-нижнему углу главного окна
    #32560022
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Gyslik.На открытие формы:
Код: plaintext
DoCmd.MoveSize  3000 ,  3000 ,  11920 ,  7200


Я думаю, что это только пример - а то в зависимости от размеров формы и резолюции экрана можно задвинуть форму так, что и не найдешь ее на экране.
Параметры надо выбрать посредством опытов открытия.
А вообще, вопрос достаточно сложный...
см. например,
/topic/98527&hl=movesize
...
Рейтинг: 0 / 0
14.06.2004, 09:29
| Ответить | Цитировать | Написать  
Разместить форму впритык к правому-нижнему углу главного окна
    #32560306
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
Разместить-то можно, но если надо отслеживать изменения окна Access и изменения панелей меню, то будет посложнее и без таймера не обойтись.
Прилагаю пример, что-то пришлось накрутить, раньше вроде проще делал, но не вспомнил как.
...
Рейтинг: 0 / 0
14.06.2004, 14:00
| Ответить | Цитировать | Написать  
Разместить форму впритык к правому-нижнему углу главного окна
    #32560405
Noone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Noone
Гость
У меня форма-сопровождение, которая должна мочь быть прибита к одному из углов главного окна. Таймеры уже есть, к лефому верхнему углу уже работает (случается, например, когда исчезает панель инструментов и тогда форма подъезжает к углу).

Главный вопрос в том, как ОПРЕДЕЛИТЬ размеры главного окна, ведь оно может меняться!

Димс.
...
Рейтинг: 0 / 0
14.06.2004, 15:29
| Ответить | Цитировать | Написать  
Разместить форму впритык к правому-нижнему углу главного окна
    #32560410
Noone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Noone
Гость
Serge Gavrilov, спасибо!

Мне собственно, нужно было вот это

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Type Rect
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

Declare Function GetClientRect Lib "user32" ( _
        ByVal hwnd As Long, _
        lpRect As Rect) As Long

А то я не мог сообразить, как структуру из четырех лонгов в бейсик передать и надеялся, что есть встроенная функция.

Димс.
...
Рейтинг: 0 / 0
14.06.2004, 15:34
| Ответить | Цитировать | Написать  
Разместить форму впритык к правому-нижнему углу главного окна
    #32560610
vam911
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vam911
Участник
Gyslik.На открытие формы:
Код: plaintext
DoCmd.MoveSize  3000 ,  3000 ,  11920 ,  7200


А оно всегда таких размеров, или это просто пример??
...
Рейтинг: 0 / 0
14.06.2004, 18:22
| Ответить | Цитировать | Написать  
Разместить форму впритык к правому-нижнему углу главного окна
    #32560950
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
Private Sub Form_Resize()
Dim lMeWindowWidth As Long: lMeWindowWidth = Me.InsideWidth
Dim lMeWindowHeight As Long: lMeWindowHeight = Me.InsideHeight
Me!cDetail1.Width = lMeWindowWidth - 100
Me!cDetail1.Height = lMeWindowHeight - 600
End Sub
...
Рейтинг: 0 / 0
15.06.2004, 08:32
| Ответить | Цитировать | Написать  
Разместить форму впритык к правому-нижнему углу главного окна
    #32560953
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
Виноват, это про расстановку контролов внутри формы.
...
Рейтинг: 0 / 0
15.06.2004, 08:34
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Разместить форму впритык к правому-нижнему углу главного окна
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1611&tid=1673859]:
 0ms
get settings:
 11ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 62ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 244ms
total:  399ms
созд. / загр.: 399ms
x
x
Закрыть


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