Окно типа панели задач

[Source]

Как создать такое окно? Т.е. надо, чтобы окно висело вверху или внизу экрана и другие приложения не перекрывали его. Также надо, чтобы ярлыки десктопа не попадали под это окно.

[Денис]

Ф поеск!

[Source]

почему окно не позиционируется вверху экрана?

[Saturn.65]

почему окно не позиционируется вверху экрана?

[Source]

мне поверх всех не надо, мне надо позиционировать его

[Saturn.65]

мне поверх всех не надо, мне надо позиционировать его

В VB справа в низу есть монитор и на нем форма. Мышкой ее передвинь в нужный участок позиционирования не мониторе.

[alibek]

Глупый совет.
Тут надо Move делать в Form_Load.

[Source]

ну Move то Move, но должно же SetWindowPos перемещать! Да и Move после SetWindowPos не срабатывает! А до срабатывает! К тому же выше Top=0 не поднимает(Me.Move 0, -Me.Height )!

[alibek]

Во-первых, позицию формы установи в Custom, а не Auto или Center.
Во-вторых, если ты ее перемещаешь через API, наверное будет лучше делать это в Form_Activate, а не Form_Load.

[Source]

вроде разобрался - после посылки ABM_SETPOS AppBar позиционируется в фоновом режиме, поэтому позиционирование окна не происходит верно сразу после Ret = SHAppBarMessage(ABM_SETPOS, AppDat). Странно, что после ABM_NEW необходимо посылать ABM_SETPOS, иначе AppBar не будет иметь размеров (как будто ABM_NEW не может сразу установить размеры, ведь при ABM_NEW передаётся та же структура APPBARDATA)!

[Source]

не могу только понять, как использовать ABM_QUERYPOS для проверки позиции

[Хакер]

Послал, проверил члены структуры после вызова функции.

[Source]

они не изменяются после вызова. Т.е., если установить им произвольные значения, они так и останутся после вызова. Поэтому я подумал, что SETPOS выполняется в фоновом режиме (также SetWindowPos не срабатывает как надо сразу после SETPOS в Form_Load), сделал ABM_QUERYPOS в цикле с ожиданием - ан нет! Странно, что после Form_Load ещё происходят какие-то действия с окном, т.к. SetWindowPos срабатывает верно только в Form_Activate (как сказал alibek) или Command1_Click. Так что же это за ABM_QUERYPOS?

[Хакер]

Что значит в фоновом режиме?

[Source]

ну функция возвращает управление, не ожидая установки координат.

[Хакер]

Как шлёшь? SendMessage или PostMessage ?

[Source]

Ret = SHAppBarMessage(ABM_SETPOS, AppDat)

[alibek]

Странно, что после Form_Load ещё происходят какие-то действия с окном

У тебя выставлено StartupPosition, вот и происходят.

[Source]

StartupPosition=3
Так как всё-таки используется ABM_QUERYPOS?

[Source]

после Ret = SHAppBarMessage(ABM_SETPOS, AppDat) никак не получается сразу переместить окно с помощью SetWindowPos, т.е. у меня в окне настроек ставлю переключатель 'Фиксировать окно вверху экрана' и в обработчике Click хочу его сразу переместить - оно мелькает вверху экрана и исчезает, в результате остаётся на прежнем месте:

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

Private Sub optUpWA_Click()
    AppDat.RC.Top = 0
    AppDat.uEdge = ABE_TOP
    SetAppBar
    Ret = SetWindowPos(frmMain.hwnd, 0, 0, 0, frmMain.Width / TPPX, frmMain.Height / TPPY, SWP_NOACTIVATE)
End Sub

Public Sub SetAppBar()
Dim Ret As Long
     AppDat.RC.Left = 0
     AppDat.RC.Right = Screen.Width / TPPX
     AppDat.RC.Bottom = frmMain.Height / TPPY
     AppDat.hwnd = frmMain.hwnd
     AppDat.cbSize = Len(AppDat)
     Ret = SHAppBarMessage(ABM_NEW, AppDat)
     Ret = SHAppBarMessage(ABM_SETPOS, AppDat) 'устанавливает новую позицию(размеры) AppBar
End Sub

и создание этого AppBar иногда тормозит, значит, надо использовать ABM_QUERYPOS для проверки, есть ли уже наш AppBar(а потом позиционировать окно), но как?

[Source]

Во-вторых, если ты ее перемещаешь через API, наверное будет лучше делать это в Form_Activate, а не Form_Load.

Вообщем, alibek, твоя теория не оправдалась. В разработчике сиё работает. Но, если запустить exe, который выполняется намного быстрее, позиционирование окна будет неверным. Выход нашёлся такой - после Ret = SHAppBarMessage(ABM_SETPOS, AppDat) ставится DoEvents и всё прекрасно работает. Но возникает вопрос, чего же не хватало, что нам дало DoEvents?

[Source]

ещё 1 проблема - после полноэкранных приложений (меняющих разрешение экрана) панель становится меньше, а при возврате в прежний режим система не восстанавливает размер панели. Почему?

[Source]

ещё 1 проблема - после полноэкранных приложений (меняющих разрешение экрана) панель становится меньше - при возврате в прежний режим система не восстанавливает размер панели. Почему?