Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Разместить форму впритык к правому-нижнему углу главного окна / 9 сообщений из 9, страница 1 из 1
14.06.2004, 01:34:01
    #32559974
Dmitry S. Kravchenko
Dmitry S. Kravchenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разместить форму впритык к правому-нижнему углу главного окна
Привет!

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

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

Димс.

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


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

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

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


А оно всегда таких размеров, или это просто пример??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2004, 08:32:59
    #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:34:28
    #32560953
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разместить форму впритык к правому-нижнему углу главного окна
Виноват, это про расстановку контролов внутри формы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Разместить форму впритык к правому-нижнему углу главного окна / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 506ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1673859]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 181ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 235ms
total:  506ms
x
x
Закрыть


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