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

Ejemplo 14

El siguiente ejemplo permite manipular datos provenientes desde un cuadro de texto, ingresados por teclado y los seleccionados de una lista, almacenada en un cuadro combinado.

Procedimiento

A continuación se muestra una imagen del formulario.

Al diseñarlo debe insertar un cuadro de texto cuyo nombre sea TxtDatos; un control de lista, cuyo nombre sea LstLista01, un cuadro combinado que tenga por nombre CboInfo01 y tres botones de comando: CmdInicio, CmdAceptar y CmdFin; sus captions se muestra en la imagen.

El código es el siguiente:

Private Sub CmdAceptar_Click()

LstLista01.AddItem TxtDatos.Value

LstLista01.AddItem CboInfo01.List(CboInfo01.ListIndex)

TxtDatos.Text = ""

TxtDatos.SetFocus

End Sub

Private Sub CmdFin_Click()

n = LstLista01.ListCount

For i = 1 To n

Cells(i, 3) = LstLista01.List(i - 1)

End

End Sub

Private Sub CmdInicio_Click()

TxtDatos.Enabled = True

LstLista01.Clear

CboInfo01.Clear

TxtDatos.Text = ""

Sheets(1).Activate

n = InputBox("Nro. de filas")

Cells(1, 1).Select

For i = 1 To n

CboInfo01.AddItem Cells(i, 1)

Nota:

Observe que no siempre el botón Terminar debe tener una única instrucción. El archivo se llama Formulario01.xlsm.

Noviembre-2010

Pág. 6.17