Tutorial de Visual Basic. Aprenderemos a buscar datos o llamado técnicamente ítems en un LISTBOX, el ítem a buscar lo encontraremos de dos formas una será por el índice que será ingresado por el usuario por un TEXTBOX y la otra forma ser por el ítem mismo que también será ingresado por un TEXTBOX.

Será bastante fácil para eso necesitamos abrir nuestro nuevo proyecto en VISUAL STUDIO 2010 y crear un nuevo proyecto en VISUAL BASIC 2010, para empezar a trabajar:

Se nos va a crear un nuevo formulario que es el formulario principal de nuestra aplicación,  para lograr nuestro cometido arrastremos las herramientas necesarias a nuestro formulario, que son un LISTBOX, dos TEXTBOX y dos BOTONES con esas herramientas podremos hacer lo arriba expuesto.

Nuestro formulario entonces con las herramientas necesarias lucirá así o tú puedes darle el orden que quieras:

Ahora para buscar datos en nuestro LISTBOX es necesario que este por lo menos con 5 ítem o más nosotros lo vamos a crear 5 ítems por defecto, y lo hacemos dándole clic derecho en el LISTBOX y después EDITAR ELEMENTOS, para que nos aparezca el editor de elementos:

Este es el editor de ítems de nuestro LISTBOX y le hemos escrito cinco ítems:

Ahora te toca escribir tus propios ítems y después hacemos clic en el botón ACEPTAR.

Listo ahora escribimos el código para el primer botón que ser  buscar por índices el cual capturaremos el número que ingresemos por el TEXTBOX1 y empezaremos a buscar al hacerle clic en el BUTTON1 que es el BUSCAR  POR INDICE:

Entonces hacemos doble clic en el botón BUSCAR POR INDICE y dentro de sus funciónes escribimos el siguiente código:

'primero capturamos el numero ingresado por el TEXTBOX

DimindiceAsInteger

indice = TextBox1.Text

'Ahora nos fijamos que este dentro del rango de la cantidad de ítems

If (indice> 0) And (indice< (ListBox1.Items.Count + 1)) Then

' Si existe mostramos el ítem en un mensaje

MsgBox(ListBox1.Items.Item(indice - 1))

End

Else

' Si no existe le advertimos que el índice no existe

MsgBox("No Existe el índice especificado...")

EndIf

 

Ahora hacemos doble clic en el botón BUSCAR POR ITEM para que recuperemos el ítem escrito en el TEXTBOX2:

Hacemos doble clic en el botón2 BUSCAR POR ITEM y dentro de su función escribimos el siguiente código:

‘recogemos el escrito del TEXBOX2

DimitemAsString

item = TextBox2.Text

‘ahora lo buscamos

‘es capaz de encontrar solo poniendo las tres primeras letras del ítem

If (ListBox1.FindString(item)) > (-1) Then

MsgBox("Se encuentra en el indice: " + (ListBox1.FindString(item) + 1))

End

Else

MsgBox("No Existe el ítem especificado...")

EndIf

Listo con eso habremos logrado crear búsquedas en la herramienta LISTBOX.

¿Quieres ser el primero en opinar sobre Visual basic 2010. Uso de Listbox?