типа таскбара...

[Jenizix]

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

[BV]

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

Public Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long

Public Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Public Declare Function SetWindowPos Lib "user32.dll" (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
Public Declare Function SetWindowPlacement Lib "user32.dll" (ByVal hwnd As Long, ByRef lpwndpl As WINDOWPLACEMENT) As Long

Public Type WINDOWPLACEMENT
   Length As Long
   flags As Long
   showCmd As Long
   ptMinPosition As POINTAPI
   ptMaxPosition As POINTAPI
   rcNormalPosition As Rect
End Type

Public Type POINTAPI
   x As Long
   y As Long
End Type

Ну и в этом духе...

ИМХО решил делать что-то типа Windows Longhorn SideBar'а?
Тогда делай его лучше не сверху, а сбоку.

[alibek]

Посмотрю функцию WinAPI SystemParametersInfo

[Jenizix]

ИМХО решил делать что-то типа Windows Longhorn SideBar'а?
Тогда делай его лучше не сверху, а сбоку.

Да! =) А можеш примерчик рабочий дать... Ну чтоб окно с боку экрана прилеплялось...

[BV]

А можеш примерчик рабочий дать... Ну чтоб окно с боку экрана прилеплялось...

Да проще простого!
Установи свойства формы Moveable = False и BorderStyle = 1, и впиши это:

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

Option Explicit
Option Compare Text

Private Sub Form_Load()
    With Me
        .Width = Screen.Width / 6
        .Height = Screen.Height
        .Left = Screen.Width - Me.Width
        .Top = 0
    End With
End Sub

...потом с помощью API сделай всё как положено.

[Jenizix]

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

[hCORe]

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

Option Explicit
Option Compare Text...

А причем здесь Option Compare Text? С таким же успехом я могу написать Option Compare Binary

[alibek]

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

Ты мой совет пробовал?

[Jenizix]

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

Ты мой совет пробовал?

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

Если не сложно, дайте какой нить простенький пример, как это реализовать...

[BV]

А причем здесь Option Compare Text? С таким же успехом я могу написать Option Compare Binary

Просто для понта

2 Jenizix

Воспользуйся API Guide'ом. Там есть примеры к этим API.

[Cryonyx]

Народ, вопрос в тему: как сделать т.н. AutoHide AppBar типа панели задач в Форточках?
Фишка в том, что Виндовз позволяет сделать по одному автохайдбару с двух противоположных сторон экрана (быть может, и со всех четырёх - не проверял, но с двух - это точно), т.е. кроме стандартной панели задач можно добавить ещё (типа как делает MS Office Panel).
Может, кто знает, как енто провернуть?

[Jenizix]

Ну что, больше никто не поможет???

[alibek]

Ну что, больше никто не поможет???

Не стыдно не знать, стыдно не учиться.

Поставь API-Guide и посмотри пример.

[Jenizix]

Поставил, а с чем там пример смотреть??? с SetWindowPlacement там пример как свернуть форму вроде, а с SystemParametersInfo как рисунок на десктопе менять, а нужного нету =(((((

[tyomitch]

Это не то? http://bbs.vbstreets.ru/viewtopic.php?p=55903#55903

[alibek]

Jenizix, там есть пример, как задать рабочую область (десктом за вычетом плавающих панелей, таких как таскбар).

[Jenizix]

нет... я кажется понял как мою проблему решить... : нужно размер рабочей области поменять с помощью SystemParametersInfo как alibek говорил!!!

но вот так не получаеться:

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

Dim rc As RECT

rc.Bottom = 100
rc.Right = 100
rc.Left = 100
rc.Top = 100

SystemParametersInfo SPI_SETWORKAREA, 0, rc, 0



в чем ошибка???

во на дельфи:

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

var
r:trect;
begin
r := Rect(1,1,100,100); // Определяет размеры новой рабочей области
SystemParametersInfo(SPI_SETWORKAREA,0,@R,0);
end;


[Jenizix]

ВСЕ!!!! Всем спасибо разобрался!!!

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

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

Private Const SPIF_SENDWININICHANGE = &H2&
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Const SPI_SETWORKAREA = 47&

Private Sub Command1_Click()
Dim R As RECT
R.Left = 0
R.Right = 0
R.Top = 0
R.Bottom = 0

RetVal = SystemParametersInfo(SPI_SETWORKAREA, 0, R, SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE)


End Sub

[Eduard]

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

Option Compare Text
Option Compare Binary

И для чего это ваааще нужно, и чём они отличаються ???

[alibek]

В данном случае они не нужны.
А вообще, эта директива указывает, как будут сравниваться текстовые значения -- как текст (без учета регистра) или как бинарные данные.