Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex
As Long) As Long Function VideoColors(hDC As Long) As Single ' ' Restituisce il numero di colori della configurazione ' del video ' ' Input : device context del form Const PLANES = 14 Const BITSPIXEL = 12 VideoColors = 2 ^ (GetDeviceCaps(hDC, PLANES) * GetDeviceCaps(hDC, BITSPIXEL)) End Function |