Visual Basic FAQ

Узнать графические размеры рабочий области для приложений (учитываються размеры панели задач).

- Структура RECT содержит данные об обьекте.В данном случае обьектом является рабочий стол Windows.

- Константа SPI_GETWORKAREA указывает функции SystemParametersInfo возвратить параметр рабочей области рабочего стола Windows.

'В этом примере форма примет размеры доступной графической области для приложений 

Option Explicit 

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

Private Sub Form_Load()
    Dim tRCT As RECT
    SystemParametersInfo SPI_GETWORKAREA, ByVal 0&, VarPtr(tRCT), ByVal 0&
    Me.Left = 0: Me.Top = 0
    Me.Width = tRCT.Right * Screen.TwipsPerPixelX
    Me.Height = tRCT.Bottom * Screen.TwipsPerPixelY
    Debug.Print Me.Width, Me.Height
End Sub

Запись опубликована on 15.12.2008 at 18:00 и размещена в рубрике: Формы. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.