Vb6 Valore Numerico più alto - come individuarlo?

[Brothers]

Ciao a tutti

Ho una Matrice di Label (label(0) - Label(1) etc) circa un centinaio.

Tutti con la Caption numerica (1 5 7 10 20 etc)

Vorrei individuare la Caption con il valore più alto.

Ho provato con l'operatore Or in 2 modi ma mi legge tutti i risultati sopra lo 0

sotto il codice:

---------------------------------------

Dim i As Integer

Dim MyCheck

For i = 0 To 100

If MyCheck >= Label(i).Caption Or Label(i).Caption Then MsgBox MyCheck

Next i

---------------------------------------

Cosi mi legge 100 Msg vuoti

---------------------------------------

Dim i As Integer

Dim MyCheck

For i = 0 To 100

If MyCheck >= Label(i).Caption Or Label(i).Caption Then MsgBox Label(i).Caption

Next i

---------------------------------------

Cosi mi legge tutti i valori sopra lo zero

Sto sbagliando qualcosa ma non capisco cosa.

Qualcuno sa come risolvere questo guazzabuglio?

Grazie anticipate

[lucios]

Prova così:

dim max as Integer, i as Integer

For i=0 to label.Count-1 Then

If Cint(label(i).Caption) > max Then

max = Cint(label(i).Caption)

End If

Next

Ciao

[Brothers]

Ciao Lucios e grazie della risposta

Ho provato subito cosi

----------------------------

Dim max As Integer, i as Integer

For i = 0 To Label.Count - 1

If CInt(Label(i).Caption) > max Then

max = CInt(Label(i).Caption)

MsgBox max

End If

Next

----------------------------

Ma MsgBox max è uguale a zero

Forse non ho capito quello che mi volevi dire?

Grazie Comunque

Ciao

[dago_]

    Dim I As Long
    Dim tmp
    tmp = 0
    For I = 0 To 20
        If Val(Label1(I).Caption) > tmp Then tmp = Val(Label1(I).Caption)
    Next I
    MsgBox "Numero " + CStr(tmp), vbInformation, "Eccoci"

Piu' o meno

[lucios]

Msgbox max lo devi mettere fuori dal ciclo for.

For i = 0 To Label.Count - 1

If CInt(Label(i).Caption) > max Then

max = CInt(Label(i).Caption)

End If

Next

MsgBox max

Deve andare!

Ciao

[Brothers]

Ciao

Scusa Lucios Hai ragione e funziona a meraviglia

sbagliavo io avevo

Label1(i).Caption e scrivevo Label(i).Caption Errore di distrazione

E funziona perfettamente anche il codice di Dago, come sempre del resto.

Vi ringrazio tutti e due ragazzi

Ciao e alla Prossima