Visual Basic - Adaptar mis objetos a la resolución de la pantalla

Life is soft - evento anual de software empresarial
 
Vista:

Adaptar mis objetos a la resolución de la pantalla

Publicado por Pedro J. (40 intervenciones) el 29/09/2000 00:00:00
Hola,
Normalmente trabajo con una resolución de 800 X 600. El problema que tengo es
que he creado una pequeña aplicación, y allí están usando una resolución
600 x 640. ¿Qué hago para adaptar mis formularios, cajas de textos, etc, a la
resolución de la pantalla.?


Gracias y un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Adaptar mis objetos a la resolución de la panta

Publicado por Horacio Hernandez (14 intervenciones) el 29/09/2000 00:00:00
Se puede pero es una lata, bastante pesada ya que necesitas tener DLL´s que te digan cuando cambiar de acuerdo a la configuración.
Te recomiendo mejor diseñar los formularios en la configuración en uso y ya.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Adaptar mis objetos a la resolución de la panta

Publicado por DilSan (3 intervenciones) el 29/09/2000 00:00:00
Asegurate que es necesario esa operacion, pues es un poco tedioso...
Si quieres hacerlo, tienes que trabajar en el evento Resize del Form, y cambiar el ancho y altura de los objetos que desees que cambien.

Intentalo!!!1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Adaptar mis objetos a la resolución de la panta

Publicado por Christian A. Valeria Celedón (217 intervenciones) el 29/09/2000 00:00:00
El siguiente código lo probé con un formulario que contenía varios tipos de controles y funcionaba bien. Sin embargo, no es 100% seguro que funcione igual para todos los objetos. Si lo puedes terminar, mándame una copia...

´Variables globales para el formulario
Private VScr As Integer, HScr As Integer
Private VFactor As Single, HFactor As Single
Private NoCambiar As Boolean

´Al cargar el formulario
Private Sub Form_Load()
HScr = Screen.Width / Screen.TwipsPerPixelX
VScr = Screen.Height / Screen.TwipsPerPixelY
VFactor = VScr / 600
HFactor = HScr / 800
Factor = HScr / 800
NoCambiar = True
Me.Width = Me.Width * HFactor
Me.Height = Me.Height * VFactor
NoCambiar = False
End Sub

Private Sub Form_Resize()
Dim ctl As Control
On Error Resume Next
If NoCambiar Then Exit Sub
For Each ctl In Me
ctl.Top = ctl.Top * VFactor
ctl.Height = ctl.Height * VFactor
ctl.Left = ctl.Left * HFactor
ctl.Width = ctl.Width * HFactor
Next
End Sub

También puedes ir a esta página y buscar algún control ActiveX que haga el trabajo en forma automática. La dirección es la siguiente:
http://www.somser.com/2000VB/Ventanas.htm
Espero que te sirva de ayuda...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar