Хм... Окно всегда внизу?

[Joo]

Делаю примочку к напоминалке в виде стикеров, которые должны лежать на рабочем столе, и при перемещении их или просто фокусировке они не должны выскакивать на передний план.

Собственно вопрос, столкнулся первый раз, как сделать окно, которое независимо от своего фокуса, была всегда внизу, по-другому на раб. столе?

[Joo]

Всем спасибо за внимание )) 2 дня бился, как только написал тут сразу нашлось решение )))
Можно в кирпичики )

В форме:

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

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case Win32API.WM_WINDOWPOSCHANGING
                Dim wp As Win32API.WINDOWPOS
                wp = DirectCast(Marshal.PtrToStructure(m.LParam, GetType(Win32API.WINDOWPOS)), Win32API.WINDOWPOS)
                wp.hwndInsertAfter = Win32API.HWND_BOTTOM
                Marshal.StructureToPtr(wp, m.LParam, True)
        End Select
        MyBase.WndProc(m)
    End Sub


В модуле:

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

        Public Const HWND_BOTTOM = 1

        <StructLayout(LayoutKind.Sequential)> _
        Public Structure WINDOWPOS
            Public hwnd As IntPtr
            Public hwndInsertAfter As IntPtr
            Public x As Integer
            Public y As Integer
            Public cx As Integer
            Public cy As Integer
            Public flags As Integer
        End Structure