Abrir el ejemplo 2 de la unidad, vamos a completar el programa. Utilizando las colecciones internas vamos a programar el evento Resize de los formularios "hijos". En este ejercicio nos ocuparemos del tamaño y la posición horizontal de los controles de los dos formularios

Descargar el ejecutable.

Ayuda: Para el formulario que sólo contiene cajas de texto, recorreremos todos los controles modificando, mediante una proporción respecto al formulario, las propiedades Left y Width de los controles.

Para el formulario que contiene cajas de texto y botones de comando, deberemos poner más cuidado, ya que dentro del bucle que recorra todos los controles deberemos usar la sentencia TypeOf para distinguir entre un tipo de control u otro, ya que aunque podemos establecer el mismo tamaño horizontal para todos, la posición horizontal debe ser diferente.

Sigamos con el ejemplo 2 de la unidad. Ahora programaremos el tamaño y la posición vertical del formulario que contiene cajas de texto y botones de comando, de forma que los distribuyamos de forma uniforme y con la misma altura para todos.

Descargar el ejecutable.

Ayuda: Una forma de hacerlo consiste en calcular la altura que deberán tener los controles y guardarlo en una variable. Además conviene tener otra variable con la posición de forma que a medida que se vayan colocando controles, esta se incremente la altura más un margen de separación.

La forma más cómoda puede ser el asegurarnos el orden que tienen los controles en el formulario mediante la propiedad TabIndex, de forma que los agrupemos de dos en dos, es decir que los controles que estén en la misma fila tengan la Propiedad TabIndex consecutiva.

Acabaremos con el ejemplo 2 de la unidad. Ahora programaremos el tamaño y la posición vertical del formulario que contiene sólo cajas de texto, de forma que los distribuyamos de forma uniforme y con la misma altura para todos.

Descargar el ejecutable.

Ayuda: Este ejercicio es más sencillo ya que sólo disponemos de un control por fila y podemos realizar el posicionamiento utilizando la colección Controls, es decir podemos recorrer los controles, para modificar su posición vertical, en el orden deseado utilizando la sintaxis Controls(i).Top dentro de un bucle.

Twitter Meneame Delicious Technorati Digg Facebook