Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: luis456 en 6 Enero 2014, 14:10 pm


Título: Mostrar esto de forma diferente
Publicado por: luis456 en 6 Enero 2014, 14:10 pm
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 ?


Código
  1.  Public Shared Sub PrintValues(ByVal myArr As Array)
  2.         Dim myEnumerator As System.Collections.IEnumerator = _
  3.            myArr.GetEnumerator()
  4.         Dim i As Integer = 0
  5.         Dim cols As Integer = myArr.GetLength((myArr.Rank - 1))
  6.         While myEnumerator.MoveNext()
  7.             If i < cols Then
  8.                 i += 1
  9.             Else
  10.                 Console.WriteLine()
  11.                 i = 1
  12.             End If
  13.             Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)
  14.         End While
  15.         Console.WriteLine() 
  16.     End Sub
  17. End Class

Luis

Título: Re: Mostrar esto de forma diferente
Publicado por: Eleкtro en 6 Enero 2014, 22:31 pm
Cita de: luis456 en  6 Enero 2014, 14:10 pm
Código
  1.  Public Shared Sub PrintValues(ByVal myArr As Array)
  2.         ...
  3.         While myEnumerator.MoveNext()
  4.             If i < cols Then
  5.                 i += 1
  6.             Else
  7.                 Console.WriteLine()
  8.                 i = 1
  9.             End If
  10.             Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)
  11.         End While
  12.         Console.WriteLine() 
  13.     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:
Código
  1.  Public Shared Sub PrintValues(ByVal myArr As Array)
  2.         ...
  3.         While myEnumerator.MoveNext()
  4.             If i < cols Then
  5.                 i += 1
  6.             Else
  7.                 ListBox1.Items.Add(String.Empty)
  8.                 i = 1
  9.             End If
  10.             ListBox1.Items.Add(String.Format("{0} {1}", CStr(ControlChars.Tab), CStr(myEnumerator.Current)))
  11.         End While
  12.         ListBox1.Items.Add(String.Empty)
  13.     End Sub

Saludos!

Título: Re: Mostrar esto de forma diferente
Publicado por: luis456 en 13 Enero 2014, 14:30 pm
Gracias Elektro :)

Luis


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines