vb6 - MergeCol 不起作用，而 MergeRow 起作用

Question

我有一个带有 1 个固定列和 2 个固定行的小型 MSFlexGrid。

在此处输入图像描述

如您所见，MergeRow 在第一行工作。

我希望第一列中的 2 个顶部单元格也合并，但分离仍然存在。

我正在使用的代码是：

with grdPrm
  .MergeCells = 1
  .MergeRow(0) = True
  .MergeCol(0) = True
  .TextMatrix(1, 0) = .TextMatrix(0, 0)
End With 'grdPrm

我尝试了 MergeCells 的值 0、1、2、3、4 以及常量 flexMergeFree 和 flexMergeRestrictBoth。

有谁知道为什么 MergeCol 对我不起作用？

score 1 · Accepted Answer

看来这.TextMatrix(1, 0) = .TextMatrix(0, 0)并没有使内容完全相等。

当我将该行替换为以下内容时，MergeCol 确实有效：

.TextMatrix(0, 0) = "    "
.TextMatrix(1, 0) = "    "

我最初通过 .FormatString 属性填充 TextMatrix(0,0) 可能与此有关：

.FormatString = "^    " & "|> " & strFC(0) & " |> " & strFC(0) & " " & ......

显然.TextMatrix(1, 0) = .TextMatrix(0, 0)只分配内容，而 MergeCol 还检查更多内容（如显式格式）

1 回答 1