Looping through MsFlexGrid rows

Question

I have a question about MsFlexGrid VB6. I have a grid containing coordinates of objects vertices. So for example, if I have 4 objects each one with 3 vertices, the number of rows is 4*3=12. What I would like to do is:

Loop through every three rows (the number of vertices) and get the maximum value and then have it appear in a MsgBox and then move to the next three vertices and do the same.

Is this possible?

Is the problem you are having about knowing how to read data out of the grid? Or more generally about how to loop in the way you need? — StayOnTarget, Aug 15 '18 at 11:38

41686d6564 stands w. Palestine · Answer 1 · 2018-08-13T19:13:27.203

Assuming your values are in the first column, you can do something like this:

Dim maxValue As Double
For i = 0 To MSFlexGrid1.Rows - 1
    Dim value As Double
    value = Val(MSFlexGrid1.TextMatrix(i, 0))
    If value > maxValue Then maxValue = value

    If (i + 1) Mod 3 = 0 Then
        MsgBox CStr(maxValue)
        maxValue = 0
    End If
Next i

If your MsFlexGrid has row/column headers (fixed rows/columns) that you'd like to skip, you would need to adjust the above code. For example, make the loop start with 1 instead of 0 if you have one fixed row. And use MSFlexGrid1.TextMatrix(i, 1) if you have one fixed column before the actual data.

Looping through MsFlexGrid rows

1 Answers1