• На форуме с 9 декабря 2005г.
  • Сообщений: 80
  • Спасибо: 0

Тема: Как обозначить очередность (zOrder) модальных окон?

Как в VBA обозначить очерёдность модальных окон. Тоесть первое диалоговое окно, потом AutoCAD и т д

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как обозначить очередность (zOrder) модальных окон?

Можно вот это попробовать

Const WS_BORDER = &H800000
Const WS_DLGFRAME = &H400000
Const WS_THICKFRAME = &H40000
Const WS_CAPTION = &HC00000                  '  WS_BORDER Or WS_DLGFRAME
Const HWND_BOTTOM = 1
Const HWND_TOP = 0
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_SHOWWINDOW = &H40
Private Declare Function DeferWindowPos Lib "user32" (ByVal hWinPosInfo As Long, _
                                                      ByVal hwnd As Long, _
                                                      ByVal hWndInsertAfter As Long, _
                                                      ByVal x As Long, ByVal y As Long, _
                                                      ByVal cx As Long, _
                                                      ByVal cy As Long, _
                                                      ByVal wFlags As Long) As Long

Вариант вызова

DeferWindowPos hDWP, Me.hwnd, HWND_TOP, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, SWP_SHOWWINDOW

где R это RECT