La Web del Programador: Comunidad de Programadores
 
    Pregunta:  1356 - COMO DETERMINA LA ANCHURA Y ALTURA DE UNA PANTALLA
Autor:  Xavi
Como puedo saber la altura y anchura de la pantalla donde se instala mi programa.

Gracias de antemano.

  Respuesta:  Jorge Espartero
x=Screen.Width - te da el ancho de la pantalla
x=Screen.Height - te da el alto de la pantalla

me.height - te da el alto del formulario
me.width - te da el ancho del formulario

Para centar en la pantalla poner.
me.top=screen.height/2 - (me.height/2)
me.left=screen.width/2 - (me.width/2)

Saludos

  Respuesta:  Pepe Palote
Si quieres usar API

Declare Function GetSystemMetrics Lib "user32"_ (By val nIndex as long) as long

Dim resX&, resy&
resx=GetSystemMetrics(0)
resy=GetSystemMetrics(1)


  Respuesta:  Xavi
Una manera muy sencilla de determinar la anchura y altura, es...

width screen
resX=.width/.twipsPerPixelX
resY=.width/.twipsPerPixelY
End Width

Este texto lo he sacado de PCWord

Espero que te sirva.