Obtener Maximo y Minimo en un listbox

[tuka_85]

Hola gente.

Queria saber si hay alguna funcion, o puedo obtener de alguna manera el maximo o minimo de un listbox y saber cuantas veces aparece.

Con arrays no vale, ya que no lo hemos estudiado todavia en visual basic.

No se me ocurre ninguna manera.

Gracias

[Malenko]

Diria que con Linq es muy sencillo, pero no se si lo habeis dado. Sino puedes hacer un bucle foreach de los items del listbox y guardar en una variable el valor mínimo y en otra el máximo.

[thewalker]

el minimo seria cero, siempre que no?

y el maximo pues simplemente cuenta los elementos del listbox:
listbox.Items.Count();

[thewalker]

aaa y para contar cuantas veces aparece repetido cierto elemento dentro del list
la verdad usando un foreach :S

[Malenko]

Iniciado por thewalker

el minimo seria cero, siempre que no?

y el maximo pues simplemente cuenta los elementos del listbox:
listbox.Items.Count();

No esta refiriendose a la cantidad de elementos, sino a los elementos en sí. Yo entiendo que tiene un listbox con números y de ahí quiere averiguar el valor más alto y el más bajo...

[tuka_85]

Iniciado por Malenko

No esta refiriendose a la cantidad de elementos, sino a los elementos en sí. Yo entiendo que tiene un listbox con números y de ahí quiere averiguar el valor más alto y el más bajo...

Si eso es...Al final hice esto..

Código:

   Dim min As Integer
        Dim max As Integer
        Dim cont_max As Integer
        Dim cont_min As Integer


        For i As Integer = 1 To LstTabla.Items.Count - 1

            If i = 1 Then
                max = CInt(LstTabla.Items(i - 1).ToString())
                min = CInt(LstTabla.Items(i - 1).ToString())

            End If


            If LstTabla.Items(i) < min Then
                min = LstTabla.Items(i)

            End If


            If LstTabla.Items(i) > max Then
                max = LstTabla.Items(i)

            End If

        Next

        If RadMax.Checked Then
            Label4.Enabled = True


            For j As Integer = 0 To LstTabla.Items.Count - 1

                If max = LstTabla.Items.Item(j) Then
                    cont_max = cont_max + 1

                End If


            Next

            Label4.Text = "El Maximo es : " & max & " que aparece: " & cont_max & " veces."


        End If

        If RadMin.Checked Then
            Label4.Enabled = True

            For j As Integer = 0 To LstTabla.Items.Count - 1

                If min = LstTabla.Items.Item(j) Then
                    cont_min = cont_min + 1

                End If


            Next

            Label4.Text = "El Minimo es : " & min & " que aparece: " & cont_min & " veces."


        End If

[Malenko]

Muy bien!!! Veo que cogiste rápidamente la idea de lo que te decía :)

[tuka_85]

Gracias por la ayuda!