| |
Сколько цветов может отобразить видеокарта |
|
| |
Расположите на форме элемент CommandButton.
Данная опция зависит от настроек вашей
видеокарты в панели управления - ЭКРАН - вкладка
"Настройка" - "Цветовая палитра".
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal
nIndex As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Const PHYSICALOFFSETX = 112
Private Const PHYSICALOFFSETY = 113
Private Const PLANES = 14
Private Const BITSPIXEL = 12
Public Function GetNColors() As Long
Dim hSrcDC As Integer
hSrcDC = GetDC(GetDesktopWindow())
GetNColors = GetDeviceCaps(hSrcDC, PLANES) * 2 ^ GetDeviceCaps(hSrcDC, BITSPIXEL)
End Function
Private Sub Command1_Click()
MsgBox GetNColors
End Sub
|
|
| |
|
|
|
|