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

Ejemplo 08

Diseñe un formulario que permita ingresar una lista de elementos hacia un cuadro combinado y que son digitados en un cuadro de texto. Cada vez que se digita una línea, se debe hacer clic en un botón de comando para ingresar el dato a la lista. Al final se debe hacer clic en un segundo botón de comando para terminar la ejecución del formulario.

Procedimiento:

La siguiente imagen muestra los elementos que debe tener el formulario.

La tabla siguiente muestra el nombre de los elementos

Botón	Name	Caption
Etiqueta	Lbl01	Ingrese el nombre del producto y haga clic en <Aceptar>
Cuadro de texto	TxtElemento
Botón de comando 1	CmdAceptar	Aceptar
Botón de comando 2	CmdFin	Terminar

El código de cada control es el siguiente:

Private Sub CmdAceptar_Click()

CboLista.AddItem TxtElemento.Text

TxtElemento.Text = ""

TxtElemento.SetFocus

End Sub

Private Sub CmdFin_Click()

End

End Sub

Private Sub UserForm_Click()

TxtElemento.SetFocus

End Sub

Al ejecutar el formulario, cada vez que ingresa un nombre o texto, debe hace clic en <Aceptar>. En cualquier momento puede desplegar la lista en el cuadro combinado para ver los elementos que se van añadiendo. Para terminar debe hacer clic en <Terminar>.

 Cursos Informática Gratuitos