WorkArea

[drronnie]

Господа, кто подскажет как изменить размер WorkArea?

[GSerg]

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

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

SPI_SETWORKAREA
Sets the size of the work area. The work area is the portion of the screen not obscured by the taskbar. The pvParam parameter must point to the RECT structure that contains the coordinates of the work area.

Так что

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

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&

Dim a as RECT
SystemParametersInfo SPI_SETWORKAREA, 0&, a, SPIF_UPDATEINIFILE

[drronnie]

Благодарю!!!