Make your own free website on Tripod.com
-Cont.
Ir a listas parte 3 Ir a Cajas Combinadas (Combo Box)
Parte IV

En el siguiente ejercicio se requiere dividir al personal por categorías siendo estas, "Empleados", "Jefes" y "Gerentes".Para esto tenemos tres listas (emp), (jef), y (ger) . Tres botones de radio (bremp), (brjef) y (brger), nos indican a qué lista deberán ir los nombres colocados en la caja de texto (ap), cuando el botón "Agregar" (btnagregar) sea accionado.
En los botones de radio, la propiedad Value en forma pre-determinada está en True y por este motivo podemos omitir escribir "True". Pero esto no se debe confundir con la Caja de Propiedades: allí en forma predeterminada los botones se encuentran en "False", por lo que podemos colocar uno de estos botones en "True", para que en forma predeterminada este botón aparezca seleccionado al ejecutar el programa. En nuestro caso hemos seleccionado el botón correspondiente a "Empleado" (se podría haber seleccionado cualquier otro).

Private Sub btnagregar_Click()
If bremp.Value Then
emp.AddItem Ap.Text
Ap.Text = ""
End If
If brjef.Value Then
jef.AddItem Ap.Text
Ap.Text = ""
End If
If brger.Value Then
ger.AddItem Ap.Text
Ap.Text = ""
End If
End Sub

Veamos otro ejercicio:
Se trata de un formulario con dos listas llamadas LbA y LbB que cuenta con un botón de nombre btnIncorporar. Este incorpora el texto que se encuentra en Tbt a LbA. Otro botón borra los elementos marcados en LbA y se llama btnBorrarM, otro llamado btnAB traslada los nombres seleccionados de la lista Lba a LbB pero sin borrar nada en la primera. Y un último botón llamado btnMAB que hace lo mismo que el anterior, pero cada Item trasladado a LbB es borrado de LbA. Además de lo anterior hay una etiqueta llamada lbl que mediante código nos indica cuantos elementos hay seleccionados en la lista LbA.

Private Sub btnincorporar_Click()
LbA.AddItem Tbt.Text
Tbt.Text = "" 'limpia la caja de texto
Tbt.SetFocus 'Mantiene el foco en la caja de texto
End Sub
Private Sub LbA_Click()
C = 0
For I = 0 To LbA.ListCount - 1
If LbA.Selected(I) = True Then
C = C + 1
End If
Lbl.Caption = "Usted marcó " & C & " elementos"
Next
End Sub

Private Sub btnBorrarM_Click()
For I = LbA.ListCount - 1 To 0 Step -1
If LbA.Selected(I) = True Then 'Se puede obviar
el true por ser predeterminado
LbA.RemoveItem I
End If
Next
Lbl.Caption = ""
End Sub

Private Sub btnAB_Click()
For I = 0 To LbA.ListCount - 1
If LbA.Selected(I) = True Then
LbB.AddItem LbA.List(I)
End If
Next
End Sub
Private Sub btnMAB_Click()
For I = 0 To LbA.ListCount - 1
If LbA.Selected(I) Then
LbB.AddItem LbA.List(I)
End If
Next
For I = LbA.ListCount - 1 To 0 Step -1
If LbA.Selected(I) Then
LbA.RemoveItem I
End If
Next
End Sub
Vamos a conocer los Combo Box
Ir a listas parte 3 Ir a Cajas Combinadas (Combo Box)