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
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