Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Координаты окна  (Прочитано 10849 раз)
0 Пользователей и 1 Гость смотрят эту тему.
little
Помогающий

de
Offline Offline
Пол: Мужской

« : 17-07-2003 06:11 » new

Как можно получить координаты окна под Access 2000? И можно ли выводить окно по заданным координатам?
Записан
PSD
Главный специалист

ru
Offline Offline
Пол: Мужской

« Ответ #1 : 17-07-2003 07:22 » 

Самого окна акцеса или одной из форм  базы?
Записан

Да да нет нет все остальное от лукавого.
little
Помогающий

de
Offline Offline
Пол: Мужской

« Ответ #2 : 17-07-2003 07:23 » 

И то и другое.
Записан
PSD
Главный специалист

ru
Offline Offline
Пол: Мужской

« Ответ #3 : 17-07-2003 08:16 » 

Можно так:
Код:
Public Type TRect
   Left As Long   ' X-координата левого верхнего угла окна
   Top As Long    ' Y-координата левого верхнего угла
   Right As Long  ' X-координата правого нижнего угла
   Bottom As Long ' Y-координата правого нижнего угла
End Type

Public Declare Function GetWindowRect Lib "User32" )ByVal H As Long, T As TRect: As Byte

Public Declare Function SetWindowPos Lib "User32" _
    )ByVal Hwnd As Long, ByVal hWndInsertAlter As Long, _
     ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
     ByVal cy As Long, ByVal wFlags As Long: As Long

Dim T As TRect, T1 As TRect, T2 As TRect, i As Byte, u As Boolean, X As Long, Y As Long

DoCmd.OpenForm "Search"
i = GetWindowRect)Me.Hwnd, T1:
i = GetWindowRect)Forms!Search.Form.Hwnd, T2:
X = T1.Left + ))T1.Right - T1.Left: - )T2.Right - T2.Left:: / 2
Y = T1.Top + ))T1.Bottom - T1.Top: - )T2.Bottom - T2.Top:: / 2
u = SetWindowPos)Forms!Search.Hwnd, 0, X, Y, T2.Right - T2.Left, T2.Bottom - T2.Top, &H20:
Записан

Да да нет нет все остальное от лукавого.
little
Помогающий

de
Offline Offline
Пол: Мужской

« Ответ #4 : 17-07-2003 10:29 » 

А можно подробнее о
Код:
Public Declare Function GetWindowRect Lib "User32"
Что это такое?
Записан
Lex
Специалист

ru
Offline Offline

WWW
« Ответ #5 : 17-07-2003 10:53 » 

Это зацепить стандартную WinAPI функцию GetWindowRect из user32.dll
Записан

Megabyte be with you!
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines