a continuacion os muestro un sencillo ejemplo de como mantener los controles de nuestro programa según la resolución de windows:
1. Abrir un nuevo proyecto.
2. Colocar en el formulario un TextBox, con la propiedad Multiline = Verdadero, un PictureBox y dentro del el 3 CommandButtons.
3. Añadir el siguiente codigo al fomurlario:
--[Form1.frm]-----------------------------------------------
Option Explicit
Private Sub Form_Resize()
On Error Resume Next
Dim btn_Width As Long
'Tamaño y posicion del cuadro de texto:
With Text1
.Left = 0
.Top = 0
.Height = Me.Height - 750
.Width = Me.Width - 125
End With
'Tamaño del contenedor de los botones:
With Picture1
.Left = 0
.Top = Me.Height - Picture1.Height - 400
.Height = 400
.Width = Me.Width - 115
End With
'Anchura de los botones:
btn_Width = Picture1.Width / 3
'Posicion y tamaño de los botones:
Command1.Height = 400
Command1.Width = btn_Width - 1
Command2.Height = 400
Command2.Left = btn_Width - 1
Command2.Width = btn_Width
Command3.Height = 400
Command3.Left = (btn_Width * 2) - 10
Command3.Width = btn_Width - 50
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
------------------------------------------------------------
