Test Foro de elhacker.net SMF 2.1

Programación => Programación General => .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 (vbnet) [Seleccionar]
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
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 (vbnet,7,10,12) [Seleccionar]
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:
Código (vbnet,7,10,12) [Seleccionar]
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!
Título: Re: Mostrar esto de forma diferente
Publicado por: luis456 en 13 Enero 2014, 14:30 PM
Gracias Elektro :)

Luis