Bueno probando y probando :) consegui un codigo y se muestra el resultado pero por consola ya lo he puesto en un fom win pero no logro hacer que me lo muestre en un listbox o si hay otra forma o otra herramienta ya que solo lo que nesecito es visualizarlo
alguna idea ?
Public Shared Sub PrintValues(ByVal myArr As Array)
Dim myEnumerator As System.Collections.IEnumerator = _
myArr.GetEnumerator()
Dim i As Integer = 0
Dim cols As Integer = myArr.GetLength((myArr.Rank - 1))
While myEnumerator.MoveNext()
If i < cols Then
i += 1
Else
Console.WriteLine()
i = 1
End If
Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)
End While
Console.WriteLine()
End Sub
End Class
Luis
Cita de: luis456 en 6 Enero 2014, 14:10 PM Public Shared Sub PrintValues(ByVal myArr As Array)
...
While myEnumerator.MoveNext()
If i < cols Then
i += 1
Else
Console.WriteLine()
i = 1
End If
Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)
End While
Console.WriteLine()
End Sub
Estás utilizando los métodos de la Class
Console para imprimir ...en la consola.
Esto ya deberías poder resolverlo sin ayuda
Luis,
Imaginemos que tienes un Listbox que se llama "Listbox1", ya lo tienes creado en la GUI, entonces haríamos estas modificaciones:
Public Shared Sub PrintValues(ByVal myArr As Array)
...
While myEnumerator.MoveNext()
If i < cols Then
i += 1
Else
ListBox1.Items.Add(String.Empty)
i = 1
End If
ListBox1.Items.Add(String.Format("{0} {1}", CStr(ControlChars.Tab), CStr(myEnumerator.Current)))
End While
ListBox1.Items.Add(String.Empty)
End Sub
Saludos!
Gracias Elektro :)
Luis