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