Зарезервировать область экрана а-ля таскбар

[Williams]

Требуется сделать так, чтобы определенная область экрана была "зарезервирована" и окна размещались только в доступной области. Я могу это осуществить с целой формой, сделав ее дескбаром, но в данном случае мне нужно без участия форм - таскбар всего-лишь контрол на существующей форме.

[ANDLL]

Требуется сделать так, чтобы определенная область экрана была "зарезервирована" и окна размещались только в доступной области. Я могу это осуществить с целой формой, сделав ее дескбаром, но в данном случае мне нужно без участия форм - таскбар всего-лишь контрол на существующей форме.

shappbarmessage

[Williams]

shappbarmessage

Кажется это то, что нужно

[Joo]

Вот так можно:

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

Imports System.Runtime.InteropServices

Module Main
    Sub Main()
        Dim hPoint As IntPtr = IntPtr.Zero
        Dim WorkArea As WIN32API_RECT
        hPoint = Marshal.AllocHGlobal(Marshal.SizeOf(WorkArea))

        Console.Write("Нажмите любую клавишу для получения рабочей области...") : Console.ReadKey()
        Marshal.StructureToPtr(WorkArea, hPoint, True)
        SystemParametersInfo(SPI_.GETWORKAREA, Marshal.SizeOf(WorkArea), hPoint, 0)
        WorkArea = DirectCast(Marshal.PtrToStructure(hPoint, New WIN32API_RECT().GetType), WIN32API_RECT)
        Console.WriteLine(WorkArea.ToString)

        Console.Write("Нажмите любую клавишу для установки новой рабочей области (Right-200)...") : Console.ReadKey()
        WorkArea.Right -= 200
        Marshal.StructureToPtr(WorkArea, hPoint, True)
        SystemParametersInfo(SPI_.SETWORKAREA, Marshal.SizeOf(WorkArea), hPoint, 0)
        Console.WriteLine()
        Console.WriteLine(WorkArea.ToString)

        Console.Write("Нажмите любую клавишу для установки новой рабочей области (Right+200)...") : Console.ReadKey()
        WorkArea.Right += 200
        Marshal.StructureToPtr(WorkArea, hPoint, True)
        SystemParametersInfo(SPI_.SETWORKAREA, Marshal.SizeOf(WorkArea), hPoint, 0)
        Console.WriteLine()
        Console.WriteLine(WorkArea.ToString)

        Console.Write("Нажмите любую клавишу для выхода...") : Console.ReadKey()
    End Sub
End Module

Module Win32API
    Public Enum SPI_
        SETWORKAREA = 47
        GETWORKAREA = 48
    End Enum

    <StructLayout(LayoutKind.Sequential)> _
    Public Structure WIN32API_RECT
        Public Left As Int32
        Public Top As Int32
        Public Right As Int32
        Public Bottom As Int32

        Public Overloads Function ToString() As String
            Return "Лево: " & Me.Left.ToString & "; Право: " & Me.Right & "; Верх: " & Me.Top & "; Низ: " & Me.Bottom
        End Function
    End Structure

    <DllImport("User32.dll", EntryPoint:="SystemParametersInfoA")> _
    Public Function SystemParametersInfo(ByVal uAction As Int32, ByVal uParam As Int32, ByVal lpvParam As IntPtr, ByVal fuWinIni As Int32) As Int32
    End Function
End Module


[Joo]

Только еще по надобности нужно дописать чтоб сам рабочий стол сужался....

[Williams]

Что-то не сходится.

Если при запущенном explorer, то функция возвращает 1, но эффекта нет.
Если без него, то возвращается ноль.
В данном случае pnlTaskbar это панель внизу формы.

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

     Dim abd As APPBARDATA = New APPBARDATA

        abd.cbSize = Marshal.SizeOf(abd)
        abd.hWnd = pnlTaskbar.Handle

        uCallbackMessage = RegisterWindowMessage("AppBarMessage")
        abd.uCallbackMessage = uCallbackMessage
        Dim ret As Long = SHAppBarMessage(CType(ABMsg.ABM_NEW, Integer), abd)

[Nord777]

но в данном случае мне нужно без участия форм - таскбар всего-лишь контрол на существующей форме.

Это я один такой непонятливый? Или вопрос такой?

Если тебе нужен такой расклад

то
Button1.Dock = DockStyle.Top
Button2.Dock = DockStyle.Fill

[Williams]

Nord777,

Не все так просто Нужно ограничить область глобально, а не в пределах собственного приложения. Чтобы не смотря на открытые окна других программ, нужный участок моей полноэкранной формы был всегда виден - до того момента, пока мое приложение не будет закрыто.

[Joo]

Ну, по моему, мой пример делает как раз то, что нужно