modificacion automatica de pantalla con cambio de resolucion

Hola soy principiante en visual basic.

Y con cada programita que hago tengo el siguiente problema cada vez que lo instalo en un pc que tiene distinta resolucion del pc donde se creo el programa. Creo que se entiende

un ejemplo

creo un programa con resolucion 800x600 visualmente se observa bien pero cuando se cambia la resolucion de pantalla 1024x768 se modifica el formato visual.


hay forma de solucionar

gracias

choche_
</TR>

RE: modificacion automatica de pantalla con cambio de resolucion

No pude agregar un ejemplo, pero te envie un privado adjuntandolo, espero que te sirva, depende de ti adaptarlo a tu programa</TR>

RE: modificacion automatica de pantalla con cambio de resolucion

A mi también me enteresaria saber como es, podrías poner el código o enviarmelo?.</TR>

__________________
Solo unos pocos marcan la diferencia. Tú mismo.

RE: modificacion automatica de pantalla con cambio de resolucion

a mi tambien me interesa, pasarmelo porfa!

gracias</TR>

RE: modificacion automatica de pantalla con cambio de resolucion

encontre dentro del foro lo q buscaba espero q lo demas lo entiendan


el codigo lo creo ALBAMARTIN</TR>

RE: modificacion automatica de pantalla con cambio de resolucion

no pude ajuntar el zip este es el codigo original


Codigo:--------------------------------------------------------------------------------
Option Explicit

Dim lMovimientoX As Single, lMovimientoY As Single

Public Sub RedimensionarForm(ByRef Frm As Form)
Dim i

lMovimientoX = Screen.Width / (640 * 15)
lMovimientoY = Screen.Height / (480 * 15)

Redimensionar Frm
For i = 0 To Frm.Controls.Count - 1
If Not TypeOf Frm.Controls(i) Is Menu Then
Redimensionar Frm.Controls(i)
End If
Next i
End Sub

Sub Redimensionar(ByRef ctrControl As Object)
Dim i As Long

On Error Resume Next

ctrControl.Width = ctrControl.Width * lMovimientoX
ctrControl.Height = ctrControl.Height * lMovimientoY
ctrControl.Top = ctrControl.Top * lMovimientoX
If ctrControl.Left < 0 Then
ctrControl.Left = ((75000 + ctrControl.Left) * lMovimientoY - 75000)
Else
ctrControl.Left = ctrControl.Left * lMovimientoY
End If
ctrControl.Font.Size = ctrControl.Font.Size * lMovimientoY
If TypeOf ctrControl Is DBGrid Then
For i = 0 To ctrControl.Columns.Count - 1
ctrControl.Columns(i).Width = ctrControl.Columns(i).Width * lMovimientoX
Next
ElseIf TypeOf ctrControl Is SSTab Then
ctrControl.TabHeight = ctrControl.TabHeight * lMovimientoY
End If
End Sub

--------------------------------------------------------------------------------


Luego en el formulario que quieras redimensionar en el Form_load escribre:


Codigo:--------------------------------------------------------------------------------
Private Sub Form_Load()
RedimensionarForm Me
end sub
--------------------------------------------------------------------------------


Lo que hace esto es coger todos los controles y los va a redimensionar a una pantalla de 640x480, esto lo podras modificar en los parametros lMovimientoX y lMovimientoY.

creado por albamartin</TR>