Publicentral.com - Promocion en cientos de buscadoresPromocion en cientos de buscadores
Mostrando Codigo - Visual Basic
Code

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.
Visitas: 18,973 - 16/09/2004 22:17:14
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO


// Codigo ofrecido por Tutores.org

  1. Private Declare Function GetDeviceCaps Lib "gdi32" _
  2. (ByVal hDC As Long, ByVal nIndex As Long) As Long
  3. Private Const BITSPIXEL = 12
  4. Private Const PLANES = 14
  5. Private Function numero_colores() As Variant
  6. Dim lngBits As Long
  7. Dim lngPlanes As Long
  8. Dim lwndHandle As Long
  9. Dim dblAns As Double
  10. lwndHandle = Me.hDC
  11. lngBits = GetDeviceCaps(lwndHandle, BITSPIXEL)
  12. lngPlanes = GetDeviceCaps(lwndHandle, PLANES)
  13. numero_colores = (2 ^ (lngBits * lngPlanes))
  14. End Function
  15. Private Sub Form_Load()
  16. MsgBox numero_colores()
  17. 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 -->
COMENTARIOS
Aun no existe ningun comentario para este Codigo.
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.