Como puedo mostrar resultados de un array en un listbox condicionados a 4

[luis456]

Hola gente cada ves que modifico algo mmm se me presentan nuevos problemas jeje

ahora uso solo un array donde junto todos los resultados de la suma,pero ahora mi problema es :

Mostrar en este listbox lineas horizontales de cuatro numeros ordenados de mayor a menor
el array me da estos números
10 20 30 40 50 60 70 80
y quiero mostrarlos  asi
80 70 60 50
40 30 20 10

aunque pruebo con lo que me explico Elektro en propiedades de los lisbox colunWich multicolum etc no logro hacer esto.

lo envio al listbox de esta forma

Código [Seleccionar] Expandir

ListBox1.Items.AddRange(Result22.Cast(Of Object).ToArray)



Luis



Mejor pongo la Funcion

Código [Seleccionar] Expandir

Dim Rand2 As New Random
       ' Concateno, y...
       ' Elimino duplicados, y...
       ' Selecciono los números inferiores a MAX, y...
       ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX.
       Dim Result22 As IEnumerable(Of Integer) =
           (Result1.Concat(Result2).Concat(Result3)).
           Distinct.
           Select(Function(Value As Integer)
                      Return If(Value < MAX, Value, Rand.Next(0, MAX))
                  End Function)

       ' Result = 1, RANDOM, 2, 3, 4, 5, RANDOM, 6, 7, 8, 9, 10, 99
       ListBox1.Items.AddRange(Result22.Cast(Of Object).ToArray)



[MOD]: No hagas doble post, utiliza el botón 'Modificar'.

[Eleкtro]

aunque pruebo con lo que me explico Elektro en propiedades de los lisbox colunWich multicolum etc no logro hacer esto.

Es imposible darte una solución de forma remota como unas medidas perfectas, no se te puede ayudar con el diseño de tu Listbox, eres tu quien debe manipular el tamaño del Listbox desde el Designer, así como otras propiedades como por ejemplo 'columndwidth' y la fuente de texto ('font') si fuese necesario. ...todo eso para ajustar el Listbox a un número de columnas e Items por fila.

Respecto a lo de ordenar los elementos de mayor a menor:

Código (vbnet) [Seleccionar] Expandir

Dim Result22 As IEnumerable(Of Integer) =
   (result1.Concat(result2).Concat(result3)).
   Distinct.
   Select(Function(Value As Integer) If(Value < MAX, Value, Rand.Next(0, MAX))).
   OrderByDescending(Function(Value As Integer) Value)

Saludos

[luis456]

Gracias elektro
esa respuesta me dice que todo es cuestión de diseño vale lo probare:) se me ocurre hacer algo como esto, es de combinatoria pero ni idea de como enfocar lo de las cuatro posiciones ni como tomar los numeros del array

Código [Seleccionar] Expandir

Private Function Result2345() As Integer
        Dim a, f, b, c, d, e As Integer <------------------?????
        Dim va As String
        For f = 1 To 5
            For a = 1 To 5
                For b = 1 To 5
                    For c = 1 To 5
                        For d = 1 To 5
                            For e = 1 To 5
                                TextBox7.Text = "a & b & c & d & e" <--no logro verlo jeje

                            Next e
                        Next d
                    Next c
                Next b
            Next a
        Next f
        Return va
    End Function

saludos
Luis