|
 |
 |
 |
| |
Nombre de couleurs 
Paramètres en entrée : Aucun
Paramètres en sortie : NombreDeCouleurs (long)
Description : donne le nombre de couleurs disponibles
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
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Const PLANES = 14
Private Const BITSPIXEL = 12
Public Function NombreDeCouleurs() As Long
Dim hSrcDC As Long
hSrcDC = GetDC(GetDesktopWindow())
NombreDeCouleurs = GetDeviceCaps(hSrcDC, PLANES) * 2 ^ GetDeviceCaps(hSrcDC, BITSPIXEL)
Call ReleaseDC(GetDesktopWindow(), hSrcDC)
End Function
|
|
 |
|
 |
|
IDDN Certification
