Configuraraciones

EL_Bordi
17 de Septiembre del 2005
Como hago para configurar las resoluciones de la pantalla?? es decir necesito ahcer que cuando sea unha resolucion menor se configuren los botones y el formulario de aacuerdo a la resoluciones que tenga el monitor!

mvallejos
17 de Septiembre del 2005
Deberás guardar en un par de constantes, cuàl fuè la resolución de diseño del programa.
Si tomas la base de 640x480, ningùn formulario debe pasar de los 9600 twips de width y 7120 twips de Height.
En el arranque sel programa, tomas la resulución actual

Resx = Screen.Width / Screen.TwipPerPixelX
ResY = Screen.Height / Screen.TwipPerPixelY

Sobre esa base calculas un proporcional entre la resulución actual y la de diseño.

En cada form, deberás codificar una rutina que reacomode los controles a la nueva resoluciòn.

Dim Ctrl as Control
For Each Ctrl In Me.Controls
Ctrl.Left = Ctrl.Left * proporcionalX
Ctrl.Top = Ctrl.Top * proporcionalY

' asì con el alto y el ancho
Next Ctrl

Otra variante puede ser que esa rutina la codifiques en un modulo y le pases como parámetro un objeto de tipo Form


Saludos