• Lunes 23 de Diciembre de 2024, 05:53

Autor Tema:  Re: Cambiar el tamano del frm segun la resolucion  (Leído 1093 veces)

Voro

  • Nuevo Miembro
  • *
  • Mensajes: 11
    • Ver Perfil
Re: Cambiar el tamano del frm segun la resolucion
« en: Martes 24 de Junio de 2003, 20:09 »
0
Hola
He creado un pequeña aplicacion con la configuracion de pantalla de mi ordenador actual al instalarlo en el antiguo a ver si funcionaba me encuentro con que el formulario no cabe en pantalla al ser una resolucion mas baja.
Preguntas:
¿Hay alguna forma facil de arregarlo?
¿Como puedo saber la resulucion de pantalla para configurar las dimensiones?

Por cierto el programa funciona

Gracias de antemano y un saludo

J.M.Movilla

  • Miembro MUY activo
  • ***
  • Mensajes: 427
    • Ver Perfil
Re: Cambiar el tamano del frm segun la resolucion
« Respuesta #1 en: Martes 24 de Junio de 2003, 20:34 »
0
¿Te sirve este código?

Saludos y suerte
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

Majuhemo

  • Miembro activo
  • **
  • Mensajes: 85
    • Ver Perfil
Re: Cambiar el tamano del frm segun la resolucion
« Respuesta #2 en: Martes 24 de Junio de 2003, 21:42 »
0
Hola:
mira, lo que puedes hacer es detectar que resolucion tiene la pc y si no es como tu la diseñaste la cambias y al salir retornas a la resolucion por defecto.

Para saber que resolucion es:

Private Sub Command1_Click()
    Dim XTwips As Long
    Dim YTwips As Long
    Dim XPixels As Long
    Dim YPixels As Long

    XTwips = Screen.TwipsPerPixelX
    YTwips = Screen.TwipsPerPixelY

    YPixels = Screen.Height / YTwips
    XPixels = Screen.Width / XTwips

    Text1.Text = Str$(XPixels) + " x " + Str$(YPixels)
End Sub

Mas detalle hay en este pagina..

http://guille.costasol.net/api/resolucionpantalla.htm

saludos;
Ruben Delgado A.
rudela@msn.com
Lima-Peru

Voro

  • Nuevo Miembro
  • *
  • Mensajes: 11
    • Ver Perfil
Cambiar el tamano del frm segun la resolucion
« Respuesta #3 en: Lunes 30 de Junio de 2003, 11:22 »
0
Gracias por las soluciones he probado las dos y funciona pero no es lo que yo suponia.
 la proxima vez con una aplicacion nueva teniedolo en cuenta me seran positivas para pader relizar la instalacion con cualquier resolucion.
De todas  formas muchas gracias