Aqui os dejo un sencillo ejemplo de un programa que se puede adaptar a cualquier tamaño de la pantalla y que adapta las dimensiones de los controles que quieres segun el tamaño. Abre VB6 y create una ventana con un
TextBox, un
PictureBox y dentro del
PictureBox añade 3
CommandButtons, un ejemplo:
Y añade el siguiente codigo al cuerpo del formulario:
Código:
Option Explicit
Private Sub Form_Load()
Form_Resize
End Sub
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:
With Command1
.Height = 400
.Width = btn_Width - 1
.Left = 0
.Top = 0
End With
With Command2
.Height = 400
.Width = btn_Width
.Left = btn_Width - 1
.Top = 0
End With
With Command3
.Height = 400
.Width = btn_Width - 50
.Left = (btn_Width * 2) - 10
.Top = 0
End With
End Sub Este codigo hace que el
TextBox se situe en la parte superior de la ventana ocupandola por completo, tenga el tamaño que tenga, inclusive maximizada, excepto un espacio abajo donde queda el
PictureBox con los 3
CommandButton que mantienen una altura pero que reparten su anchura segun la anchura de la ventana. Me supongo que era esto mas o menos a lo que os referiais, si no bien queda para subirlo a la FAQ
Salu2...