Limitar resultados

[luis456]

Por acá de nuevo con mis chapuzas

en el codigo de abajo yo concateno tres variables y las muestro en el listbox1 pero yo nesecito que el total de lo mostrado tenga una cantidad especifica de números, esto por ejemplo la variable " Result1 " aporta cuatro números , la variable  " Result2 " aporta 7 numeros y la "Result3 " aporta otros 4  sumando 15 números ,lo que quiero hacer es forzar a la variable Resultss a mostrar la cantidad de números que yo quiera, sean solo
cuatro seis o 15

Código (vbnet) [Seleccionar] Expandir

Dim Resultss As IEnumerable(Of Integer) =
           (
               From Value As Integer
               In (Result1.Concat(Result2).Concat(Result3)).Distinct)
               Where Value <= MAX
           )

       ListBox1.Items.AddRange(Resultss.Cast(Of Object).ToArray)
       ListBox1.Sorted = True


Luis

[Eleкtro]

No se entiende bien lo que pretendes hacer, ¿te refieres a que cuando la lista tenga por ejemplo 15 elementos, puedas tomar los 4 o 6 primeros elementos de la colección?:

Código (vbnet) [Seleccionar] Expandir

        Dim resultss As IEnumerable(Of Integer) =
            {
                1, 2, 3, 4, 5, 6, 7, 8, 9, 0
            }

        Dim selectedValues As IEnumerable(Of Integer) = resultss.Take(4)

        Me.ListBox1.Items.AddRange(selectedValues.Cast(Of Object).ToArray)

Saludos

[luis456]

No cuando la lista tenga lo que yo predefino, es que la muestra

por ejemplo yo quiero que esta muestre solo 10 numeros tomaria de la primera variable los numeros que tiene si faltan algunos los tomaria de la segunda y sumaria hasta llegar a los 10 si falta completaria con la tercera variable pero sin pasar de 10 números

gracias por responder

luis

[luis456]

No se entiende bien lo que pretendes hacer, ¿te refieres a que cuando la lista tenga por ejemplo 15 elementos, puedas tomar los 4 o 6 primeros elementos de la colección?:

Código (vbnet) [Seleccionar] Expandir

        Dim resultss As IEnumerable(Of Integer) =
            {
                1, 2, 3, 4, 5, 6, 7, 8, 9, 0
            }

        Dim selectedValues As IEnumerable(Of Integer) = resultss.Take(4)

        Me.ListBox1.Items.AddRange(selectedValues.Cast(Of Object).ToArray)

Saludos

Si me sirve tu codigo no lo habia mirado bien

gracias
Luis