Как сделать так, чтобы окно было...

[Druid-2004]

Как сделать так, чтобы окно было поверх всех остальных окон, даже после потери фокуса?

[RayShade]

Поиск по форуму по слову SetWindowPos

[Эрендир]

Используй следующий код:


Public Declare Function SetWindowPos Lib "user32" (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


private sub Form_load()
dim rc as long
with me
rc = SetWindowPos(.hWnd, -1, .Left / Screen.TwipsPerPixelX, .Top / Screen.TwipsPerPixelY, .Width / Screen.TwipsPerPixelX, .Height / Screen.TwipsPerPixelY, 40)
end with
end sub

[Druid-2004]

В этой строке...

Public Declare Function SetWindowPos Lib "user32" (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

....материца что-то на счет компиляции... (((

[alibek]

И правильно делает, надо Private.
Кроме того, это весьма корявый пример. Лучше послушай совет RayShade и поищи по форуму с ключевым словом HWND_TOPMOST.

[Aleksej]

Код: Выделить всё

Private Declare Function SetWindowPos Lib "User32" ( _
                        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
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
'********************************************
Public Function AlwaysTop(Form As Form)

Call SetWindowPos(Form.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                SWP_NOMOVE + SWP_NOSIZE)

End Function


[Dex]

Это вставить в модуль:

Код: Выделить всё

   Public Declare Function SetWindowPos Lib "user32" (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

   Public Const HWND_TOPMOST = -1
   Public Const HWND_NOTOPMOST = -2
   Public Const SWP_NOMOVE = &H2
   Public Const SWP_NOSIZE = &H1
   Public Const SWP_NOACTIVATE = &H10
   Public Const SWP_SHOWWINDOW = &H40

А на форме вызывать:

Код: Выделить всё

'поверх всех
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
'не поверх всех
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE