Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Работа с WINDOWS  
     
  windows: Возвращение глубины цвета  
  Функция возвращает глубину цвета - 8, 16, 24 или 32
Private Const PLANES& = 14
Private Const BITSPIXEL& = 12
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 ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Public Function ColorDepth() As Integer
Dim intPlanes As Integer
Dim intBitsPerPixel As Integer
Dim lngDC As Long
lngDC = GetDC(0)
intPlanes = GetDeviceCaps(lngDC, PLANES)
intBitsPerPixel = GetDeviceCaps(lngDC, BITSPIXEL)
ReleaseDC 0, lngDC
ColorDepth = intPlanes * intBitsPerPixel
End Function

Private Sub Form_Load()
Dim intColorDepth As Integer
intColorDepth = ColorDepth
MsgBox intColorDepth
End Sub
 
     
  VBNet online (всего: 51566)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам