12 - El control FRAME

Los Userforms nos permiten desarrollar aplicaciones evaluando contenidos (evitando o controlando posibles errores de tipeo o de ingreso de datos duplicados y tantos otros errores).
Además reduce el uso de fórmulas. O si las necesitamos, podemos reducir el tiempo de proceso programando que se pase el modo de cálculo a manual mientras ingresamos registros a una base y pasarlo a modo manual al finalizar con los registros.

En un Userform podemos utilizar varios tipos de controles: Label, TextBox, ComboBox y ListBox son los más frecuentes. Y son los mismos que podemos utilizar en una hoja Excel desde la barra de controles ActiveX.

Pero hay varios controles más: Frame, OptionButton, CheckBox, SpinButton y más.

En esta entrada vamos a ver un caso relacionado al control Frame.

Imaginemos que tenemos una cantidad de controles TextBox, CheckBox u otros que no necesariamente se llenarán todos sino que será opcional según algún otro criterio.
Entonces, podemos dibujarlos a todos dentro de un marco (Frame) e ir agrandando el frame a medida que necesitemos llenar más controles.

En las imágenes siguientes se observa el tamaño predeterminado y a continuación a medida que completamos los campos.

Esto requiere de una instrucción en el evento Enter de cada control para que a medida que lo utilizemos ya nos amplíe el marco para habilitar el siguiente control.

         Private Sub TextBox2_Enter()
           Frame3.Height = Frame3.Height + 20
           ' el tamaño que necesites para que se vea el otro box
          End Sub

          Private Sub TextBox3_Enter()
          Frame3.Height = Frame3.Height + 20
          End Sub

Pero como se puede observar en la segunda imagen, luego nos impide continuar con el resto del formulario. Por tal razón necesitamos otro código que nos vuelva nuevamente al tamaño original.
Ese código podría ser colocado al salir del último control:
         
           Private Sub TextBox5_AfterUpdate()
          'un modo: descontando la cantidad incrementada hasta llegar al último control
          Frame3.Height = Frame3.Height - 80
          'otro modo: dejando el marco del tamaño predeterminado
          If Frame3.Height > 54 Then Frame3.Height = 54
          End Sub

Ahora, programar este evento es válido si vamos a rellenar hasta el último control.

Sino debiéramos colocar un botón con la instrucción para reducir el Frame no importa cuántos controles tengamos desplegados.

            Private Sub CommandButton3_Click()
           If Frame3.Height > 54 Then Frame3.Height = 54
           End Sub

Acceso al VIDEO N° 12.