遍历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)。