recorrer listas en vb

[marinella]

Buenas noches!!
soy nueva en este lenguaje y en la universidad me pidieron hacer un aplicativo que agrege datos a una lista y que despues la recorra y consulte los datos de esas listas, y la verdad no se como hacer la parte de la consulta de las listas en determinada posicion y que saque la informacion que esta ayi.... este es el codigo que tengo:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cedula As Integer
Dim nombre As String
Dim prestamo As Double
Dim cuotas As Integer
Dim pagos As Integer



ListBox1.Items.Add(TextBox1.Text)
nombre = TextBox2.Text
ListBox2.Items.Add(nombre)
prestamo = TextBox3.Text
ListBox3.Items.Add(prestamo)
cuotas = TextBox4.Text
ListBox4.Items.Add(cuotas)
pagos = TextBox7.Text
ListBox5.Items.Add((prestamo / cuotas) * pagos)
ListBox6.Items.Add(prestamo - (prestamo / cuotas) * (pagos))
TextBox5.Text = TextBox1.Text
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
ListBox5.Items.Clear()
ListBox6.Items.Clear()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If ListBox1.FindStringExact(TextBox5.Text) Then

MsgBox(ListBox3.Items.ToString)

'ListBox6.Items.Add(prestamo - (prestamo / cuotas) * (pagos))

End If


si me ayudan urgente se los agradeceria muchisimo!!!!

[Ka0stj]

Hola marinella

Puedes hacerlo de la siguientes formas:

Mediante el FindStringExact

Código vb:

Dim valor As Integer = 0
 
        valor = Me.ListBox1.FindStringExact(Me.TextBox1.Text)
 
        If valor <> ListBox.NoMatches Then
            ListBox1.SetSelected(valor, True)
        Else
            MsgBox("No existe.")
        End If
 

Ó recorriendo toda la lista comparando los Items.

Código vb:

Dim bandera As Boolean = False
 
        For I As Integer = 0 To ListBox1.Items.Count - 1
            If Me.ListBox1.Items(I) = "La cadena que buscaras" Then
                bandera = True
                Exit For
            End If
        Next
 
        If bandera = True Then
            MsgBox("Si existe.")
        Else
            MsgBox("No existe.")
        End If
 

Espero y te sirva, Saludos!