WorkingArea

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

netdemon
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 179
Зарегистрирован: 04.09.2007 (Вт) 15:51

WorkingArea

Сообщение netdemon » 21.11.2010 (Вс) 19:15

Как изменить 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
Лишь разум потерянный бесповоротно мною. Наполнить может сердце мне тоской.
Нельзя обнять необъятное и впихнуть невпихуемое.

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16473
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: WorkingArea

Сообщение Хакер » 21.11.2010 (Вс) 22:33

Work, а не Working.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

netdemon
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 179
Зарегистрирован: 04.09.2007 (Вт) 15:51

Re: WorkingArea

Сообщение netdemon » 21.11.2010 (Вс) 23:03

Хакер писал(а):Work, а не Working.


My.Computer.Screen.WorkingArea
Уважаемый хакер - Читайте "маркса" :D
Вот что получилось:
Вложения
www.jpg
www.jpg (104.59 Кб) Просмотров: 1466
Лишь разум потерянный бесповоротно мною. Наполнить может сердце мне тоской.
Нельзя обнять необъятное и впихнуть невпихуемое.

abbat
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 08.11.2011 (Вт) 17:38

Re: WorkingArea

Сообщение abbat » 08.11.2011 (Вт) 22:57

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

netdemon
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 179
Зарегистрирован: 04.09.2007 (Вт) 15:51

Re: WorkingArea

Сообщение netdemon » 12.11.2011 (Сб) 12:24

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


Так код уже есть в первом посте. Нужно только поменять исходные данные и всё. :D
Лишь разум потерянный бесповоротно мною. Наполнить может сердце мне тоской.
Нельзя обнять необъятное и впихнуть невпихуемое.


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10

    TopList