Unidad 6. Creación de formularios de usuario (V)



Ejemplo 02

Crear un formulario que se llame Forma02, que tenga un botón de comando y que éste permita dar por terminado el uso del formulario. Que su caption sea Botón de comando. Luego al hacer clic en dicho botón, durante la ejecución del formulario, debe dar por terminado su uso.

Procedimiento:

P1. Inserte un nuevo UserForm.

P2. Haga clic en (Name) y digite Forma02. Haga clic en <Caption> y digite "Botón de comando".

P3. Haga clic en el Botón <Botón de comando> del cuadro de herramientas. Luego, en el formulario, trace un pequeño rectángulo en la parte inferior derecha.

P4. Haga clic en (Name) y digite CmdTerminar. En <Caption> digite Terminar.

P5. Ahora vamos a insertar el código que permita dar por terminado la ejecución del formulario.

Para ello haga doble clic en el botón que ha insertado

Como verá se inserta el siguiente segmento de código:

Dentro de este procedimiento digite End

Nota:

Para volver al formulario haga clic en

Para ejecutar el formulario haga clic en el icono   de la barra de herramienta Estándar.

Al estar en modo de ejecución,  haga clic en el botón <Terminar> y verá que el formulario pasa a modo de edición en la ventana del editor.

Ejemplo 03

Crear un formulario que al hacer clic en un botón de comando, se muestre en una ventana del MsgBox, la ruta del libro que esté en uso y al hacer clic en el segundo, se dé por terminado la ejecución del formulario.

Procedimiento

P1. Insertar un UserForm que se llame Forma03

P2. Insertar dos botones de comando.

       Botón 1: Nombre: CmdRuta                        Caption: Devuelve la ruta

       Botón 2: Nombre: CmdFin               Caption: Terminar

P3. Luego de hacer doble clic en el botón 1, ingrese el siguiente código:

       Dim Ruta As Variant

Workbooks(1).Activate

Ruta = ActiveWorkbook.Path

MsgBox Ruta

P4. Luego de hacer clic en el botón 2, ingrese el siguiente código:

     End

P5. Ejecute el formulario haciendo clic en el icono

Noviembre-2010
Pág. 6.5

Atrás  Inicio  Adelante





Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies