MyTetra Share
Делитесь знаниями!
Как определить разрешение экрана
Время создания: 02.03.2020 13:56
Текстовые метки: DPI, разрешение экрана
Раздел: VB

'\\Как определить разрешение экрана


' Ширина экрана в пикселях


' Screen.Width / Screen.TwipsPerPixelX


' Высота экрана в пикселях


' Screen.Height / Screen.TwipsPerPixelY


'\\Если нужно определить число цветов дисплея, то можно воспользоваться API:


Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" _

(ByVal hDC As Long, ByVal nIndex As Long) As Long


Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As Long


Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As Long) As Long


Private Declare PtrSafe Function ReleaseDC Lib "user32" _

(ByVal hwnd As Long, ByVal hDC As Long) As Long




Private Const HORZRES = 8


Private Const VERTRES = 10


Private Const BITSPIXEL = 12




Sub Command1()


Dim Deskhwnd As Long


Dim DeskDc As Long


Dim Width As Long


Dim Height As Long


Dim Depth As Long


' Получаем описатель рабочего стола

Deskhwnd = GetDesktopWindow


' Получаем контекст устройства рабочего стола

DeskDc = GetDC(Deskhwnd)


' Получаем ширину экрана

Width = GetDeviceCaps(hDC, HORZRES)


' Получаем высоту экрана

Height = GetDeviceCaps(hDC, VERTRES)


' Получаем цветовую палитру

' (число бит на пиксель)

Depth = GetDeviceCaps(hDC, BITSPIXEL)


' Освобождаем ресурсы

ReleaseDC GetDesktopWindow(), hDC


End Sub





Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования