Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/09/2010, 22:13
marinella
 
Fecha de Ingreso: agosto-2010
Mensajes: 34
Antigüedad: 13 años, 8 meses
Puntos: 0
recorrer listas en vb

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!!!!