循环遍历MsFlexGrid行

Question

我有一个关于MsFlexGrid VB6的问题。我有一个包含对象顶点坐标的网格。例如，如果我有4个对象，每个对象有3个顶点，行数是4*3=12。我想做的是：

每三行(顶点的数量)循环一次，获得最大值，然后将其显示在MsgBox中，然后移动到下三个顶点并执行相同的操作。

这个是可能的吗？

Answer 1

假设你的值在第一列，你可以这样做：

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

如果你的MsFlexGrid有你想跳过的行/列标题(固定的行/列)，你需要调整上面的代码。例如，如果有一个固定的行，则使循环以1开头，而不是以0开头。如果在实际数据之前有一个固定的列，则使用MSFlexGrid1.TextMatrix(i, 1)。