VBNet - Форум - Панель задач...

Вопрос: Панель задач... Добавлено: 04.02.03 16:44

Автор вопроса: Artificial Intelligence | ICQ: 275368971

Суть проблеммы такова

Есть MDI форма, она должна открываться в полный размер экрана, при этом она не должна закрывать панель задач

Я делаю:

MDIForm.Width = Screen.Width

MDIForm.Height = Screen.Height - "высота панели задач"

так вот, как мне узнать высоту панели задач?

И еще один вопрос

Когда я приделал к MDI форме меню она стала отображатся так

хотя "Top = 0", а чтоб верхняя граница MDI формы была в самом верху экрана приходится писать "Top = -285"

Кто нибудь может обьяснить что это за ...

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #1

Добавлено: 04.02.03 22:30

Рабочая область Рабочего стола. Эффективна потому, что

на рабочем столе может быть не только Панель задач. А, например, Панель офиса или дополнительная панель в любой другой границе экрана.

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinini As Long) As Long
Const SPI_GETWORKAREA = 48

Private Sub Form_Click()
Dim RC As RECT
Dim x As Long
Call SystemParametersInfo(SPI_GETWORKAREA, vbNull, RC, 0)
Print "Рабочая область (границы)"
Print "Левая = " & RC.Left
Print "Верхняя = " & RC.Top
Print "Правая = " & RC.Right
Print "Нижняя = " & RC.Bottom
End Sub

Ответить

Номер ответа: 2
Автор ответа:

Artificial Intelligence

ICQ: 275368971

Вопросов: 8
Ответов: 131

Профиль | | #2

Добавлено: 05.02.03 10:59

Пасибо, это решило обе проблемы.

Ответить

Страница: 1 |