MSFlexGridで列結合したい

解決

MS 2010-09-01 22:35:57 No: 102542

VB6.0(SP6)
WindowsXP

MSFlexGridで列を結合させるには、どうすればいいでしょうか。
MergeCellsを使って、行は結合させることができたのですが。

行イメージは以下になります。
---------------------------
|     |     |     |     |
---------------------------
|     |     |     |
|     |     |     |
---------------------------
|                 |
---------------------------

よろしくお願いします。

VBレスキュー(花ちゃん) URL 2010-09-03 04:11:13 No: 102543

これでいいのでしょうか？

Private Sub Form_Load()
   Dim i As Long, j As Long
   With MSFlexGrid1
      .FixedCols = 0
      .FixedRows = 0
      .Rows = 10
      .Cols = 10
      .MergeCells = flexMergeFree
      .MergeCol(0) = True
      .MergeCol(1) = True
      .MergeCol(2) = True
      .MergeRow(3) = True
   End With
   For i = 1 To 2
      For j = 0 To 2
         MSFlexGrid1.TextMatrix(i, j) = "  "
      Next j
   Next i
   For j = 0 To 2
      MSFlexGrid1.TextMatrix(3, j) = " "
   Next j
End Sub

MS 2010-10-16 02:06:19 No: 102544

お礼が遅くなって申し訳ありません。無事解決しました。ありがとうございます。