Форма накрывает таскбар

[keks-n]

Есть форма с BorderStyle=0. Если вдруг WindowState становится равно vbMaximized, форма накрывает собой таскбар.

Вопрос: почему так, и как бороться?

Ответа на этот простой вроде бы вопрос я на форуме не нашёл.

[Lumen]

Попробуй SetWindowPos

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

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE


[keks-n]

Lumen
Не пашет...

[IIIypuk]

пфф, юзай GetSystemMetrix
Короч, счас напишу вариант, кому то я уже писал это...

[IIIypuk]

Во, нашел. Решение через GetSysetMetrics и SetWindowPos:

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

Option Explicit
Const SM_CYCAPTION = 4
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long


Const SWP_SHOWWINDOW = &H40
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


Private Sub Form_DblClick()
Dim lngCY As Long
Dim lngCX As Long
Dim lngCaption As Long

lngCY = GetSystemMetrics(SM_CYSCREEN)
lngCX = GetSystemMetrics(SM_CXSCREEN)
lngCaption = GetSystemMetrics(SM_CYCAPTION)

Call SetWindowPos(Me.hwnd, 0, 0, 0, lngCX, lngCY - lngCaption, SWP_SHOWWINDOW)

End Sub

[onell]

попробуй поменять BorderStyle формы с FixedSingle на Sizable

[Amed]

Сделать так, чтобы WindowState не могло стать равным vbMaximized.

"Вдруг" - это когда именно?

[Хакер]

Amed, это значит, как только WindowsState становится равнум 2, форма занимает весь экран...

А зачем с этим бороться если это фича?

[keks-n]

У меня окно нестандартного вида, т. е. свой заголовок, кнопки наверху. Но мне нужна свёртка/развёртка, как у нормального окна. Так всё, работает, но при нажатии "Развернуть" в системном меню, происходит WindowState=2, и таскбар исчезает. Поскольку с окошком я работаю без участия сабклассинга, то перехват WM_INITMENU(для активации/установки надписей) и WM_COMMAND (для самостоятельной обработки нажатия на пункт Развернуть/Восстановить) невозможен...
Вот и надо при разворачивании не трогать таскбар.

[Amed]

keks-n, а где системное меню у окна с BorderStyle=0?

[keks-n]

IIIypuk
Таскбар может быть и сбоку... И толще. Но за идею спасибо, ибо я получив ошибку, при попытке поправить размер VB'шными средствами, забил на изменение размеров. Ну ничего - найду измерялку таскбара и доделаю код.

[alibek]

API SystemParametersInfo

[keks-n]

Amed
Нуу... Он у меня не совсем равен 0. Точнее в design-time он ему вообще не равен Просто бордеры сносятся при инициализации, посредством исзменения стиля окна. И всё это, для эмуляции нормального поведения форточки.

[keks-n]

Итого получилось: