Número de colores que soporta actualmente el dispositivo de Pantalla.

Indica el número de colores que soporta actualmente el dispositivo de Pantalla.

Crea un proyecto e inserta este código.

Option Explicit
'  Parámetros de dispositivos para GetDeviceCaps()
Const BITSPIXEL = 12         '  Número de bits por píxel
Const PLANES = 14            '  Número de planos
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()
    Dim Res As Long
    Res = (2 ^ GetDeviceCaps(Form1.hdc, BITSPIXEL)) ^ GetDeviceCaps(Form1.hdc, PLANES)
    MsgBox CStr(Res) & " colores."
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s