WorkingArea

[netdemon]

Как изменить WorkingArea Рабочего стола?

Отредактировано: 21.11.2010 22:17 ' netdemon '

Вот сам допёр как. Кому надо используйте:

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

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, _
        ByRef lpvParam As Rectangle, ByVal fuWinIni As Integer) As Integer

    Public oldArea As Rectangle
    Public Const SPI_SETWORKAREA = 47
   
   

    Public Function SetDeskTopArea()
        Dim r As Rectangle
        Dim retval As Integer

        oldArea.X = My.Computer.Screen.WorkingArea.X
        oldArea.Y = My.Computer.Screen.WorkingArea.Y
        oldArea.Height = My.Computer.Screen.WorkingArea.Height
        oldArea.Width = My.Computer.Screen.WorkingArea.Width

        r.Height = My.Computer.Screen.WorkingArea.Bottom
        r.X = 0
        r.Width = My.Computer.Screen.WorkingArea.Right
        r.Y = frmBar.Height

        retval = SystemParametersInfo(SPI_SETWORKAREA, 0, r, 0)
    End Function
    Public Function GetBAckDesktop()
        Dim retval As Integer
        retval = SystemParametersInfo(SPI_SETWORKAREA, 0, oldArea, 0)
    End Function

[Хакер]

Work, а не Working.

[netdemon]

Work, а не Working.

My.Computer.Screen.WorkingArea
Уважаемый хакер - Читайте "маркса"
Вот что получилось:

[abbat]

netdemon, прошу помочь.
Как сделать рабочую область и оставить внизу место под таскбар. Чтобы раскрывающиеся формы оставляли место под свой таскбар.
там вроде 30 пкс. высоты.

[netdemon]

netdemon, прошу помочь.
Как сделать рабочую область и оставить внизу место под таскбар. Чтобы раскрывающиеся формы оставляли место под свой таскбар.
там вроде 30 пкс. высоты.

Так код уже есть в первом посте. Нужно только поменять исходные данные и всё.