Как определить разрешение экрана
' Ширина экрана в пикселях
' Screen.Width / Screen.TwipsPerPixelX
' Высота экрана в пикселях
' Screen.Height / Screen.TwipsPerPixelY
Если нужно определить число цветов дисплея, то можно воспользоваться API:
Private Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hDC As Long, ByVal nIndex As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare 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
Private Sub Command1_Click()
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
|
