[Resolved] Determine the member of a type with the highest value

[TokersBall_CDXX]

having a hard time determining which member of a private type has the highest value.

Bubble Sorting doest appear loggical, or if it does I just can't see it from this view...

Private Type ThisIsATest
 lThisisALong as long
 sThisIsAName as string
End Type
Dim Test(39) as ThisIsATest
 
 
Private Sub Form_Load()
 
Test(0).lThisisALong = 4123
Test(1).lThisisaLong = 31
Test(2).lThisisaLong = 312355
End Sub

any ideas how to determine which is the highest?

[brucevde]

Loop through the entire array and check that the value in the current Index is higher than the previous value.

Dim lngIdx As Long
    Dim lngValue As Long
    Dim lngMaxIdx As Long
 
    lngValue = -2000000000
 
    For lngIdx = 0 To UBound(Test)
 
        If Test(lngIdx).lThisisALong > lngValue Then
            lngValue = Test(lngIdx).lThisisALong
            lngMaxIdx = lngIdx
        End If
 
    Next
 
    Debug.Print "The array element " & lngMaxIdx & " contains the highest value of " & lngValue

[jcis]

I did something similar, with a function..

Private Sub Command1_Click()
    MsgBox getmaxValue
End Sub

Private Function getmaxValue() As Long
Dim i       As Long
Dim TempVal As Long

    TempVal = -999999999
    For i = 0 To UBound(Test)
        If Test(i).lThisisALong > TempVal Then TempVal = Test(i).lThisisALong
    Next
    getmaxValue = TempVal
End Function

[TokersBall_CDXX]

Thanks guys, works like a charm