duda sobre listboxes

hola miren les muestro el codigo que tengo hecho, no estoy entendiendo como
recorrer bien un listbox y que me muestre en un msgbox los valores
seleccionados.
Dim i As Integer

For i = 1 To certprocesos.Items.Count - 1

If DirectCast(certprocesos.SelectedItem, cvalores).valor > 0 Then

MsgBox(DirectCast(certprocesos.SelectedItem, cvalores).valor)

End If

Next

PD: el DirectCast lo tengo porque cuando uso certprocesos.items.add(new
cvalores("","")) lo uso para poder tener texto y valor del item.
Saludos,

Walter

hola miren les muestro el codigo que tengo hecho, no estoy entendiendo
como recorrer bien un listbox y que me muestre en un msgbox los valores
seleccionados.
Dim i As Integer

For i = 1 To certprocesos.Items.Count - 1

If DirectCast(certprocesos.SelectedItem, cvalores).valor > 0 Then

MsgBox(DirectCast(certprocesos.SelectedItem, cvalores).valor)

End If

Next

PD: el DirectCast lo tengo porque cuando uso certprocesos.items.add(new
cvalores("","")) lo uso para poder tener texto y valor del item.
Saludos,

Walter

prueba con esto amigo:

Dim valor As String

For Each valor In ListBox1.Items

MessageBox.Show(valor)

Next




Saludos cordiales,
Ángel Ruiz
MCP C#
MVP de Visual Basic desde el 2004
Caracas - Venezuela
"El conocimiento es un bien, que crece a medida que se comparte"
Nota: todo el codigo explicado esta orientado a VB .NET 2005

"Walter Arce" escribió en el mensaje
news:

hola miren les muestro el codigo que tengo hecho, no estoy entendiendo
como recorrer bien un listbox y que me muestre en un msgbox los valores
seleccionados.
Dim i As Integer

For i = 1 To certprocesos.Items.Count - 1

If DirectCast(certprocesos.SelectedItem, cvalores).valor > 0 Then

MsgBox(DirectCast(certprocesos.SelectedItem, cvalores).valor)

End If

Next

PD: el DirectCast lo tengo porque cuando uso certprocesos.items.add(new
cvalores("","")) lo uso para poder tener texto y valor del item.
Saludos,

Walter