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 :silbar: 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
Lo que he entendido es que tienes 60 listboxes y quieres añadir los items de esos 60 listboxes en otro listbox, pues:
Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}
For Each lb As ListBox In lbs
ListBox1.Items.AddRange(lb.Items)
Next lb
saludos
Cita de: Eleкtro en 18 Abril 2015, 14:27 PM
Lo que he entendido es que tienes 60 listboxes y quieres añadir los items de esos 60 listboxes en otro listbox, pues:
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
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:
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!
Cita de: Eleкtro en 18 Abril 2015, 20:18 PM
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:
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 :silbar: claro lo pude resolver no faltaba mas jejej con tus enseñanzas :)
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
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