ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вопрос про API
13 сообщений из 13, страница 1 из 1
Вопрос про API
    #32562675
Alexander Say
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander Say
Гость
В USER32 есть функция MapWindowPoints.
С её помощью в VBA определяю координаты верхнего-левого угла окна ACCESS (-X/-Y)

Код: plaintext
1.
Dim ScrShif as pointApi
MapWindowPoints GetDesktopWindow(), GetParent(me.hwnd), ScrShif,  1

Причем работает все просто на ура (учитывает и панели меню и панели инструментов)

Хотелось бы найти что то подобное для правого нижнего угла (не путать с размером client зоны, поскольку она не учитывает ни statusbar, ни нижней или левой панели меню/инструментов).
...
Рейтинг: 0 / 0
16.06.2004, 01:04:08
| Ответить | Цитировать | Написать  
Вопрос про API
    #32562678
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
возьми размеры для того же HWND... и вперёд
ф-я GetRect по моему это... либо мессага EM_GETRECT

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
16.06.2004, 01:13:43
| Ответить | Цитировать | Написать  
Вопрос про API
    #32562693
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
GetWindowRect ?
...
Рейтинг: 0 / 0
16.06.2004, 03:26:49
| Ответить | Цитировать | Написать  
Вопрос про API
    #32564590
Alexander Say
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander Say
Гость
Ну вот те раз..
В первом случае:
авторвозьми размеры для того же HWND... и вперёд
ф-я GetRect по моему это... либо мессага EM_GETRECT

Код: plaintext
1.
Retrieves the formatting rectangle for an edit control. Refer to “Text
Formatting,” earlier in this chapter, for a description of formatting rectangles.
А во втором:
авторGetWindowRect ?
координаты окна.

Нужны координаты рабочей зоны окна ACCESS, с учетом StatusBar, MenuBar1....MenuBarN.
...
Рейтинг: 0 / 0
17.06.2004, 02:01:11
| Ответить | Цитировать | Написать  
Вопрос про API
    #32564595
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
GetWindowRect

VB Declaration

Declare Function GetWindowRect& Lib "user32" (ByVal hwnd As Long, lpRect As RECT)

Description

Obtains the bounding rectangle for the entire window including borders, title bars, scroll bars, menus, and so on.

По описанию вроде соответствует. Или врут?
...
Рейтинг: 0 / 0
17.06.2004, 02:13:35
| Ответить | Цитировать | Написать  
Вопрос про API
    #32564608
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
Дошло :)
Можно получить системные размеры title bar и border, иотнять.
...
Рейтинг: 0 / 0
17.06.2004, 05:28:34
| Ответить | Цитировать | Написать  
Вопрос про API
    #32566367
Alexander Say
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander Say
Гость
авторДошло :)
Можно получить системные размеры title bar и border, иотнять.
Но ведь они могут быть и снизу и сверху или где угодно. Нужна функция подобная MapWindowPoints.
...
Рейтинг: 0 / 0
18.06.2004, 00:07:56
| Ответить | Цитировать | Написать  
Вопрос про API
    #32566385
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
авторНо ведь они могут быть и снизу и сверху или где угодно. Нужна функция подобная MapWindowPoints.
Посмотрите обсуждение Разместить форму впритык к правому-нижнему углу главного окна
...
Рейтинг: 0 / 0
18.06.2004, 01:04:42
| Ответить | Цитировать | Написать  
Вопрос про API
    #32566451
well_wisher_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
well_wisher_
Гость
2 Alexander Say

Миллион раз обсуждалось уже.
1. необходимо получить хендл "окна администратора" (класс MDIClient) см. FindWindowEx
2. Получить координаты клиентской части "окна администратора" см. GetClientRect
3. далее по желанию

и всё.

ЗЫ Исползуй SPY + PSDK
...
Рейтинг: 0 / 0
18.06.2004, 07:55:31
| Ответить | Цитировать | Написать  
Вопрос про API
    #32566493
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
авторНужны координаты рабочей зоны окна ACCESS, с учетом StatusBar, MenuBar1....MenuBarN.

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

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

Dim AccRect As Rect

    Call GetClientRect(Application.hWndAccessApp, AccRect)

Это в пикселах будет :)
Потом надо еще на 15 умножить, чтобы в твипах получить
...
Рейтинг: 0 / 0
18.06.2004, 08:57:00
| Ответить | Цитировать | Написать  
Вопрос про API
    #32568282
Alexander Say
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander Say
Гость
Много написано и что ?
Про клиент зону уже можно книги писать. В клиент зоне окна ACCESS меню, панели, формы сами являются объектами. Вот мне и нужно чтобы форма не выезжала не за переделы клиент зоны не под "прибитые" панели. Панели отдельно формы отдельно.

Код: plaintext
1.
2.
GetWindowRect  -	Used to obtain a rectangle describing the location and
size of the window rectangle in screen coordinates. The window rectangle includes 
the border, caption, menu bars, and so on.
Не ужели не понятно тут они пишут про системные статусы и меню.
А ACCESS генерирует свои объекты его меню панели, панели инструментов не что иное как формы.

Вся эта беда нужна для класса посему должна быть универсальна и проста.
...
Рейтинг: 0 / 0
19.06.2004, 01:27:51
| Ответить | Цитировать | Написать  
Вопрос про API
    #32568378
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
на бегу сделал бы, наверно, так.
1) завел "тестовую форму-линейку-измеритель"
2) заморозив обновление экрана, максимизировал ее и взял ее координаты,
получив т.о. размеры текущей "клиентской зоны".
3) закрыл линейку и отморозил экран.

ЗЫ
Похоже, тут совсем без апи можно обойтись.
Если класс "библиотечный" - должно быть "универсально". То есть как функцию библиотечную все это вполне оформить можно
...
Рейтинг: 0 / 0
19.06.2004, 13:11:46
| Ответить | Цитировать | Написать  
Вопрос про API
    #32568866
well_wisher_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
well_wisher_
Гость
2 Alexander Say

Вы читаете, что Вам здесь пишут?
Хех... ладно, вот Вам пример:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Option Compare Database
Option Explicit

Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Const SWP_NOSIZE = &H1
Const SWP_SHOWWINDOW = &H40

Private Declare Function FindWindowEx& Lib "user32.dll" Alias "FindWindowExA" _
    (ByVal hwndParent&, ByVal hwndChildAfter&, ByVal lpszClass$, ByVal lpszWindow$)
Private Declare Function GetClientRect& Lib "user32.dll" (ByVal hwnd&, lpRect As RECT)
Private Declare Function SetWindowPos& Lib "user32.dll" _
    (ByVal hwnd&, ByVal hWndInsertAfter&, ByVal x As Long, ByVal y&, ByVal cx&, ByVal cy&, ByVal wFlags&)

Private Sub Button0_Click()
    Dim rc As RECT
    Dim hclient&
    hclient = FindWindowEx(Application.hWndAccessApp,  0 &, "MDIClient", vbNullString)
    Call GetClientRect(hclient, rc)
    Call SetWindowPos(Me.hwnd,  0 &, rc.Right - Me.WindowWidth /  15 , _
        rc.Bottom - Me.WindowHeight /  15 ,  0 &,  0 &, SWP_NOSIZE + SWP_SHOWWINDOW)
End Sub
...
Рейтинг: 0 / 0
21.06.2004, 06:27:30
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вопрос про API
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32562678&tid=1673706]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 348ms
get topic data:
 8ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 203ms
total:  635ms
созд. / загр.: 635ms
x
x
Закрыть


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