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

Сколько цветов может отобразить видеокарта



'Данная опция зависит от настроек вашей видеокарты в панели управления -
'ЭКРАН - вкладка "Настройка" - "Цветовая палитра".

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


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


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

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


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