22/07/2011, 12:06
|
 | | | Fecha de Ingreso: noviembre-2008
Mensajes: 15
Antigüedad: 16 años Puntos: 2 | |
| Respuesta: Resolucion de pantalla VB6
Mira este codigo es sencillo y efectivo:
En la sección de declaraciones pones:
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
y en tu botón o en el load de la forma lo siguiente:
Dim largo, alto As Integer
largo = GetDeviceCaps(Acceso.hdc, 8)
alto = GetDeviceCaps(Acceso.hdc, 10)
ahi tienes la resolución, espero te sirva |