redes

Objeto de Control ListBox

Llamada caja de lista, contiene un grupo de opciones del cual se puede seleccionar una o más opciones.



Propiedades

Ítems, usados solo en tiempo de diseño. Permiten el llenado de una caja de lista. La lista, por defecto, se ordena alfabéticamente












Sorted, permite la ordenación de la lista de opciones de la caja de lista. Estapropiedad es de tipo booleano



Funciones
AddItem(), permite agregar en tiempo de ejecución agregar un ítem a la caja de lista
Por ejemplo:




SelectedIndex(), permite saber el índice actual o activo de una caja de lista. Se entiende por índice actual aquella posición dentro de la lista del ítem seleccionado
Por ejemplo:


SelectedItem(), permite obtener el ítem seleccionado.
Porejemplo:




SelectItem(), selecciona un ítem de acuerdo al índice indicado
Por ejemplo:



DeleteItem(), Borra un ítem de la caja de lista dado el valor del índice.
Por ejemplo:







TotalItems(), permite saber el total de ítems de una caja de lista.
Por ejemplo:




Text(), permite obtener un ítem de la caja de lista dado el valor del índice. No se necesita que el ítem estéseleccionado.
Por ejemplo:




Reset(), Elimina todos los ítems de una caja de lista.


Aplicación 1:

Se quiere llevar a cabo la matrícula de los cursos que el alumno indique teniendo en cuenta que cada curso básico cuesta 80 soles y cada curso especializado cuesta 110 soles. Muestra el monto total de los cursos solicitados.


Solución:



Colocamos el siguiente script (programa)en el objeto rb_curbas, evento clicked:

lb_cursos.reset() limpia la caja de lista lb_cursos
lb_cursos.addItem("Matematica") se agrega Matemática en la caja de lista lb_cursos
lb_cursos.addItem("Administracion") se agrega Administración en la lista lb_cursos
lb_cursos.addItem("Economía") .
lb_cursos.addItem("Marketing") .
lb_cursos.addItem("Redaccion") .lb_cursos.addItem("Fisica")

De la misma forma se programa el objeto rb_curesp, evento clicked:

lb_cursos.reset() limpia la caja de lista lb_cursos
lb_cursos.addItem("Windows 2003") se agrega Windows 2003 en la lista lb_cursos
lb_cursos.addItem("Visual Basic Net") se agrega Visual Basic Net en la lista lb_cursos
lb_cursos.addItem("Visual Java")
lb_cursos.addItem("Power Builder")
lb_cursos.addItem("ASP Net")lb_cursos.addItem("Redes")
lb_cursos.addItem("Proyectos Informáticos")

Programa en el objeto lb_cursos, en el evento selectionChanged lo siguiente:

cb_agregar.enabled=true se habilita el uso del botón decorando cb_agregar cuando
se seleccione un curso de la lista lb_cursos

Programa en el objeto cb_agregar, en el evento clicked lo siguiente:lb_cursosmat.additem(lb_cursos.selecteditem())
if rb_curbas.checked then
lb_tipo.additem("B")
else
lb_tipo.additem("E")
end if
lb_cursos.Selectitem(0)
cb_agregar.enabled=false

Aquí se agrega a la lista lb_cursosmat el curso que está seleccionado en la caja de lista lb_cursos, dado que selecteditem permite obtener el ítem seleccionado. Luego, con la sentencia IF se verifica si el botón de radio que indica los cursosbásicos está seleccionado o no lo está, gracias a la propiedad checked. Si es así, agrega B a la caja de lista lb_tipo, caso contrario agrega a la misma caja de lista lb_tipo la letra E. Finalmente, quita lo seleccionado en lb_cursos, al poner lb_cursos.selectitem(0) e inhabilita el uso del botón agregar.

Programa en el objeto lb_cursosmat, en el evento clicked lo siguiente:

integer indice sedeclara una variable indice como entero
indice=lb_cursosmat.SelectedIndex() en indice se asigna el indice actual de lb_cursosmat
lb_tipo.SelectItem(indice) se selecciona un item con el valor de indice
cb_quitar.enabled=true se habilita el botón de comando quitar

Programa en el objeto cb_quitar, en el evento clicked lo siguiente:

integer indice se declara una variable indice...