Sres Desarrolladores, les envío este aporte que permitirá conocer las opciones
principales del control ListBox, en este articulo no utilizo el enlace del
control a base de datos, pero de todas maneras espero que les sea útil. Suerte
a todos.
UN POCO DE TEORÍA
Los controles de lista como ListBox, ComboBox y CheckedListBox (pueden visitar
el artículo que publiqué hace algún tiempo en http://www.elguille.info/colabora/puntoNET/FernandoLuque_Controles.htm)
permiten el manejo de varias opciones, en este artículo trato de explicar el
uso del control ListBox.
La diferencia básica del control ListBox con respecto al ComboBox es que el
control ListBox permite la selección de múltiples opciones además lógicamente
de poder mostrarlas.
A continuación sigue código en Visual Basic
Private Sub
CargaFormulario(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'Llenar los elementos del ListBox lstDisponibles
Dim
aOpciones() As String = {"Net Desarrollo", "Visual Basic .Net",
"ASP .Net", _
"XML Web Service", "Application Blocks", "Ing. Fernando
Luque", "COM+ Components"}
lstDisponibles.Items.AddRange(aOpciones)
'Llenar los
elementos del ListBox lstMulti para
'probar el comportamiento de
la Propiedad
SelectionMode
'NOTE QUE EN EL ARRAY ANTERIOR SE USO
AddRange
'Cuando se utiliza DataSource no se pueden
eliminar
'los
elementos de la lista
Dim aMultiple() As String =
{"Carolina", "Maria Fernanda", "Fernando", _
"Carla", "Ingrid",
"Esmeralda", "Víctor"}
lstMulti.DataSource = aMultiple
lstMulti.ClearSelected()
End
Sub
Private Sub
AgregarNombre(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdAgregar.Click
'Comprobar
el ingreso de un dato en la caja de texto
If
Len(Trim(txtnombre.Text)) = 0 Then
MessageBox.Show("No hay
dato para agregar...", "Error", MessageBoxButtons.OK)
txtnombre.Focus()
Exit
Sub
End
If
'Comprobar si está en la
lista
Dim
i As Integer, vPresente As Boolean
For i = 0 To lstNombres.Items.Count - 1
If lstNombres.Items.Item(i) =
txtnombre.Text Then
vPresente = True
Exit
For
End
If
Next
If vPresente = False Then
lstNombres.Items.Add(txtnombre.Text)
lstNombres.Focus()
End
If
End
Sub
Private Sub
Eliminar(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdEliminar.Click
If lstNombres.SelectedIndex <>
-1 Then
lstNombres.Items.Remove(lstNombres.SelectedItem)
End
If
End
Sub
El código completo está en el archivo adjunto.
Suerte a todos, espero les sirva de ayuda, no olviden
dar su opinión en mi Panoramabox, gracias.
Ing. Fernando Luque Sánchez
Trujillo - Perú
Espacios de nombres usados en el código de este artículo:
System.Windows
