Visual Basic - Numero de colores del ordenador
Códigos Visual Basic
Mediante este codigo se muestra una ventana de alerta con la informacion sobre el numero de colores que tiene nuestro ordenador.
Tutores.org
Mostrando Codigo - Visual Basic
CODIGO
// Codigo ofrecido por Tutores.org
- Private Declare Function GetDeviceCaps Lib "gdi32" _
- (ByVal hDC As Long, ByVal nIndex As Long) As Long
- Private Const BITSPIXEL = 12
- Private Const PLANES = 14
- Private Function numero_colores() As Variant
- Dim lngBits As Long
- Dim lngPlanes As Long
- Dim lwndHandle As Long
- Dim dblAns As Double
- lwndHandle = Me.hDC
- lngBits = GetDeviceCaps(lwndHandle, BITSPIXEL)
- lngPlanes = GetDeviceCaps(lwndHandle, PLANES)
- numero_colores = (2 ^ (lngBits * lngPlanes))
- End Function
- Private Sub Form_Load()
- MsgBox numero_colores()
- End Sub
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Numero de colores del ordenador" href="http://www.tutores.org/codigo/1312/" target="_blank">Numero de colores del ordenador</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Numero de colores del ordenador" href="http://www.tutores.org/codigo/1312/" target="_blank">Numero de colores del ordenador</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS