Главная страницаОбратная связьКарта сайта

Определение рабочей области Windows



Const SPI_GETWORKAREA = 48

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 Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Command1_Click()
Dim lngTop, lngLeft, lngRight, lngBottom As Long
Dim typRect As RECT

Call SystemParametersInfo(SPI_GETWORKAREA, vbNull, typRect, 0)
With typRect
lngTop = .Top
lngLeft = .Left
lngRight = .Right
lngBottom = .Bottom
End With

Print lngTop
Print lngLeft
Print lngRight
Print lngBottom
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Определение рабочей области Windows", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info