Como puedo mostar 60 listbox en uno solo :)

[luis456]

Hola de nuevo por aca, ya espacio el tiempo en entrar por preguntas tontas jejej gracias a mi amigo elektro que por miedo a sus regaños    no mentira , es gracias a el que me dio la pista como trabajar en este lenguaje pero me falta un monton por aprender jejeje

ahora la temida pregunta

tengo 60 listbox y por supuesto las consabidas variables de cada uno de estos listbox donde muestro resultados numericos ahora se me ocurre meter en un solo lisbotx todas estas variables pero separadas por resultados

algo como esto

listbox1
01 02 03 04 05 06 07 08 09 10 <---------variable 1

11 12 13 14 15 16 17 18 19 20 <---------variable 2

21 22 23 24 25 26 27 28 29 30 <---------variable 3 ....Etc

estaba concatenando ;( pero ***** desastre jejej


saludos
Luis

[Eleкtro]

Lo que he entendido es que tienes 60 listboxes y quieres añadir los items de esos 60 listboxes en otro listbox, pues:

Código (vbnet) [Seleccionar] Expandir

Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}

For Each lb As ListBox In lbs
   ListBox1.Items.AddRange(lb.Items)
Next lb

saludos

[luis456]

Lo que he entendido es que tienes 60 listboxes y quieres añadir los items de esos 60 listboxes en otro listbox, pues:

Código (vbnet) [Seleccionar] Expandir

Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}

For Each lb As ListBox In lbs
   ListBox1.Items.AddRange(lb.Items)
Next lb

saludos

Gracias elektro pero el codigo me muestra los resultados en vertical seguidos
y no puedo saber donde enpieza y donde termina y los nesecito con un salto entre ellos y en orizontal como puse arriba... jo que pesao soy


a si me los muestra ahora con lo que me diste
1
2
4
5
6
7
8
10
11
12
13
etc...

yo los nesecito de esta forma

01 02 03 04 05 06 07 08 09 10

11 12 13 14 15 16 17 18 19 20

21 22 23 24 25 26 27 28 29 30


ya que despues los guardo en un txt ( codigo tuyo como siempre jejej ) para despues
imprimirlos


Luis

[Eleкtro]

Supuse que los items de esos listboxes ya eran series de números horizontales cómo en el ejemplo que pusiste, ya veo que no, pero me decepciona que a estas alturas necesites ayuda para hacer estas cosas, lo has visto hacer cientos de veces ya, jeje:

Código (vbnet) [Seleccionar] Expandir

Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}

For Each lb As ListBox In lbs
   ListBox1.Items.Add(String.Join(" "c, lb.Items.Cast(Of String)))
Next lb

Saludos!

[luis456]

Supuse que los items de esos listboxes ya eran series de números horizontales cómo en el ejemplo que pusiste, ya veo que no, pero me decepciona que a estas alturas necesites ayuda para hacer estas cosas, lo has visto hacer cientos de veces ya, jeje:

Código (vbnet) [Seleccionar] Expandir

Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}

For Each lb As ListBox In lbs
   ListBox1.Items.Add(String.Join(" "c, lb.Items.Cast(Of String)))
Next lb

Saludos!

Muachas gracias pero tenias un error    claro lo pude resolver no faltaba mas jejej con tus enseñanzas

Código (vbnet) [Seleccionar] Expandir

Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}

For Each lb As ListBox In lbs
    ListBox1.Items.Add(String.Join(" "c, lb.Items.Cast(Of String))) <----aca
Next lb

error no se puede blablabala


solucion

Código (vbnet) [Seleccionar] Expandir

Dim lbs As ListBox() = {ListBox2, ListBox3}

        For Each lb As ListBox In lbs
            ListBox67.Items.Add(String.Join(" "c, lb.Items.Cast(Of Integer))) <----yo solito lo repare
        Next lb



es broma pero no me aguante para vengarme de tus regaños  jejejej

gracias Elektro 

Luis