Farbtiefe bestimmen
 Info  
Von : Wolfgang Kluge
 Zusatz  
Printfreundliche Ansicht
Für grafische- und/oder Multimedia-Anwedungen ist es sicherlich wichtig zu wissen, was für eine Farbtiefe eingestellt ist.

Und um dies herauszufinden hat das Modul "GDI" wunderbare Funktionen, wobei für dieses Vorhaben nur eine gebraucht wird.

 Deklaration:
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Const BITSPIXEL = 12


Der Aufruf gibt einen Wert zurück den man gerne Bits per Pixel (bpp) nennt,...und das wird wahrscheinlich auch so sein.
Doch es gibt nicht viele so einfache Sachen im Grafikbereich, wie daraus die Anzahl der Farben zu errechnen, da jedes Bit bekanntermaßen 2 Zustände hat.
' Ausgeben der im System unterstützten Farben
Dim BP As Long
BP = GetDeviceCaps(Me.hdc, BITSPIXEL)
MsgBox CStr(2 ^ BP) & " Farben"