| Usuario |
autoajuste de la ventana |
rojitas
4 Mensaje(s)
|
| Enviado - 30/12/2004 |
| |
otra vez gente. como hago para que al cambiar la resolucion, se me agranden de manera "proporcional" los controles o al menos la ventana, y no que quede un cuadrarito arriba a mi izquierda...
bueno desde ya muchas gracias
|
| |
|
l_island
133 Mensaje(s)
|
| Enviado - 30/12/2004 |
| |
Tines dos posibilidades
1- Hay dos controles de Infragistics, el ActiveResizer y el Resizer que hacen justo lo que tu quieres.
2- Crear un procedimiento que se ejecutará en el evento Resize de cada formulario para cambiar tamaños y posiciones de los controles.
Saludos!!
l_island |
| |
|
l_island
133 Mensaje(s)
|
| Enviado - 30/12/2004 |
| |
Estaba aburrido así que hice algo que tal vez te pueda dar una idea (está en VB6):
Option Explicit
Dim WidthOriginal As Long, HeightOriginal As Long
Private Sub Form_Load()
WidthOriginal = Me.Width
HeightOriginal = Me.Height
End Sub
Private Sub Form_Resize()
Call ResizeForm(Me, WidthOriginal, HeightOriginal)
WidthOriginal = Me.Width
HeightOriginal = Me.Height
End Sub
Private Sub ResizeForm(frm As Form, X As Long, Y As Long)
Dim intContador As Long
Dim MultiplicadorX As Single
Dim MultiplicadorY As Single
'Calcular multplicadores
MultiplicadorX = Me.Width / X
MultiplicadorY = Me.Height / Y
For intContador = 0 To Me.Controls.Count - 1
If (TypeOf Me.Controls(intContador) Is TextBox) Or (TypeOf Me.Controls(intContador) Is Label) Or _
(TypeOf Me.Controls(intContador) Is Frame) Or (TypeOf Me.Controls(intContador) Is CommandButton) Then
Me.Controls(intContador).Left = Me.Controls(intContador).Left * MultiplicadorX
Me.Controls(intContador).Width = Me.Controls(intContador).Width * MultiplicadorX
Me.Controls(intContador).Font.Size = Me.Controls(intContador).Font.Size * MultiplicadorX
Me.Controls(intContador).Top = Me.Controls(intContador).Top * MultiplicadorY
Me.Controls(intContador).Height = Me.Controls(intContador).Height * MultiplicadorY
End If
Next intContador
End Sub
Crea un proyecto con un fomulario al que se le pueda cambiar el tamaño con el ratón y pones en él Textbox's, Label's, Frame's, CommandButton's y luego añade el código anterior, ejecútalo y modifica el tamaño del Form.
El resultado es similar al de los controles que ya te comenté.
Si necesitas más controles, tendrás que añadirlos.
Saludos!!
l_island |
| |
|
|
|
