Mensajes

te enseño de donde lo saco , "almlals2"  lo que nesecito mostrar y son 30 variables de ese tipo y los quiero mostrar en un solo listbox

Código (vbnet) [Seleccionar] Expandir

Dim almA1 As IEnumerable(Of Integer) = almRe1
        Dim almlals2 As List(Of Integer) = almRe1.ToList
        almlals2.Sort()
        Me.ListBox70.Items.AddRange((From value As Integer In almlals2 Where value <> 0).Cast(Of Object).ToArray) 


luis

Bueno de nuevo gracias por tu paciencia pero no sale lo  que busco y eso que me lei los enlaces que me enviaste y todavia no aprendo a explicarme, te pongo lo que hago pero por supuesto no me sale

primer error el tipico " Un valor de tipo 'Integer' no se puede convertir en 'System.Windows.Forms.ListBox' "

segundo problema no se unir las variables

Código (vbnet) [Seleccionar] Expandir

im Lnumbers As List(Of Integer) = rsalmlals2, rsalmlals3, rsalmlals4

        For Each lb As ListBox In Lnumbers

            ListBox1.Items.Add(String.Join(" "c, Lnumbers))

        Next lb

Luis

Bueno quiero hacer algo como esto: Pero con las variables que muestro en los testboxes

Código (vbnet) [Seleccionar] Expandir

Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}   <----cambiar x variables que se muestran  en cada testbox

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

no me sale ya estoy por creer que no se puede ;(


otra de las muchas formas que he tratado y nada no se unir las variables con la primera si pero ni punto ni comas ni ostias,,,,,,,,,

Código (vbnet) [Seleccionar] Expandir

Dim Lnumbers As IEnumerable(Of Integer) = rsalmRe1 <solo me acepta una variable

        For Each Lnumber As Integer In Lnumbers

            ListBox1.Items.Add(String.Join("-"c, Lnumbers.Cast(Of Integer)))

        Next Lnumber


aaa en linq: no encuentro nada 

Luis

Bueno aca de nuevo con un problema similar al anterior post  

Queria mostrar en un solo listbox 60 listbox  y se resolvio ahora pense que seria mejor mostrar  las variables que se muestra en esos testbosex  y podria hacer el codigo mas limpio jejej

tengo esto, pero dos cosas si son 60 variables como es que se colocan jejej ya que logro poner una y la muestra pero repiten los resultados cuando se supone que deberia

de esta manera si hay una sola variable
01 02 03 04 05 06 07 08 09 10

y me muestra : ????

01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10

Código (vbnet) [Seleccionar] Expandir

Dim Lnumbers As List(Of Integer) = rsalmlals2

       For Each Lnumber As Integer In Lnumbers

           ListBox1.Items.Add(String.Join(" "c, Lnumbers.Cast(Of Integer)))

       Next Lnumber


Saludos
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:

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

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

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

No hay manera, he, luis?.

En el siguiente ejemplo, tengo una colección del 1 al 5, y relleno la colección con números aleatorios del 1 al 10 sin que estos se repitan entre ellos ni entre los números que ya hay en la colección, hasta incrementar la cantidad de elementos de la colección a 10.

Dicho de otra forma, tengo una lista del 1 al 5, genero una secuencia aleatoria del 1 al 10 y relleno la lista del 1 al 5 con los 5 números restantes del 5 al 10.

Puedes modificar los valores para tus necesidades...

Código (vbnet) [Seleccionar] Expandir


Dim col As IEnumerable(Of Integer) = {1, 2, 3, 4, 5}
Dim minColCount As Integer = 10
Dim minRandValue As Integer = 1
Dim maxRandValue As Integer = 10
Dim rand As Random = New Random

If col.Count < minColCount Then

   Dim randCol As IEnumerable(Of Integer) =
       From value As Integer In Enumerable.Range(minRandValue, maxRandValue)
       Order By rand.Next
       Where Not col.Contains(value)
       Take (minColCount - col.Count)

   col = Enumerable.Concat(col, randCol.ToArray)

End If

Debug.WriteLine(String.Join("; ", col))

Saludos

Perfecto me lees la mente jejejje

Gracias otrar ves mas

Luis


                       

[resultado]

Si entendí bien, digamos que en resultado tienes una serie de números como "resultado" de algo, y quieres con la función rand, llegar a 30 números sin que se repita ninguno de los anteriores!

¿Que cosa es la variable resultado?

Hola
si la variable se llena con una funcion que tengo, esta funcion genera numeros que van desde 00 al 99 pero a veces esta funcion genera menos de 30 numeros y como utilizo otras particiones para formar claves numericas si no llega a este minimo el programa me da error

Y me imagino que preguntas por esto de la variable y es la debe de tener mas de 30 registros

Código (vbnet) [Seleccionar] Expandir

Dim Resultados As IEnumerable(Of Integer) 

Luis