VB6 MSFlexGrid - 合并列的 ColPos

Question

我正在 VB6 中使用 MSFlexGrid 控件，但在检索合并列的 ColPos 属性时也遇到一些问题。我生成的网格看起来像这样：

-----------------------------
|         8/17/2010         |
-----------------------------
|   Column 1  |  Column 2   |
-----------------------------

第一行是固定的，两列被合并，因此两列在第一行中都包含 8/17/2010。

在 Click 事件期间，我将文本框放置在第二行中的单元格上，并且当我设置其 Left 和 Top 属性时使用 FlexGrid 的 ColPos 和 RowPos 属性，我最终将文本框定位在第 1 列上方。即使我单击第 2 列，也会发生这种情况。

我检查了 Col 属性，单击第二列后它正确设置为 2，但是 ColPos(1) 和 ColPos(2) 都返回相同的值，即从第 1 列左边缘到控件左边缘的距离。

当在 FlexGrid 上禁用合并时，问题就会消失，但我宁愿保留它，因为它使网格更具可读性。

当列中的另一个单元格与另一个单元格合并时，有什么方法可以检索所选列的正确位置，或者我是否需要手动计算列位置？

Answer 1

还没有找到通过控件来完成此操作的方法，但这是我组合在一起的一个函数，可以实现这一点。它从选定的单元格开始向后计数，直到到达与其合并的最左边的单元格，然后将合并单元格的宽度添加到第一个单元格的位置。可能可以清理一些，但这确实有效。

Private Function RealColPos(Col As Integer, grid as MSFlexGrid)

    With grid

        Dim i As Integer, merged As Integer

        i = Col - 1: merged = 0
        Do While .ColPos(Col) = .ColPos(i)
            merged = merged + 1
            i = i - 1
        Loop

        If merged > 0 Then
            RealColPos = .ColPos(Col - merged)
            Do While merged > 0
                RealColPos = RealColPos + .ColWidth(Col - merged)
                merged = merged - 1
            Loop
        Else
            RealColPos = .ColPos(Col)
        End If

    End With

End Function