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