データグリッドでセル結合を実現

データグリッドでセルが結合できないのは意外と不便に感じるものです、

そんな時にはDataGridViewForMergeコンポーネントを是非ご活用されてみてはいかがでしょうか。

セル結合コンポDataGridViewForMergeダウンロードできます。






Grid（グリッド）でセルを結合したい時などに便利なコンポーネントです。

DataGridやDataGridViewで実現可能





複数セルの結合も可能です。





利用してみたいという方は、

Vector(ベクター)からダウンロードできます。




【サンプルソースはこちら】

'初期化

Me.DataGridViewForMerge1.MergeCellDataList.Clear()

'==================================

'詳細設定サンプル

'==================================

'----------------------------------

'Rowヘッダー作成

'----------------------------------

For rowIndex As Integer = 0 To 5

Me.DataGridViewForMerge1.Rows(rowIndex).Cells(0).Value = "予定" & rowIndex.ToString("000")

Me.DataGridViewForMerge1.Rows(rowIndex).Cells(0).Style.BackColor = Color.Gray

Next



'-----------------------------------

'Colヘッダー作成

'-----------------------------------

For colIndex As Integer = 1 To 31

Me.DataGridViewForMerge1.Columns(colIndex).HeaderText = colIndex.ToString("000")

Me.DataGridViewForMerge1.Columns(colIndex).Width = 50

Next



'-----------------------------------

'結合処理

'-----------------------------------

'結合クラス作成

Dim mergeCellClass As MergeCellData

mergeCellClass = New MergeCellData

'開始行

mergeCellClass.StartRow = 0

'開始列

mergeCellClass.StartCol = 1

'終了行

mergeCellClass.EndRow = 0

'終了列

mergeCellClass.EndCol = 3

'色指定

mergeCellClass.BackColor = Color.Red

'登録

Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)

'------------------------------------

mergeCellClass = New MergeCellData

'開始行

mergeCellClass.StartRow = 1

'開始列

mergeCellClass.StartCol = 2

'終了行

mergeCellClass.EndRow = 1

'終了列

mergeCellClass.EndCol = 4

'色指定

mergeCellClass.BackColor = Color.Blue

'登録

Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)

'------------------------------------

mergeCellClass = New MergeCellData

'開始行

mergeCellClass.StartRow = 2

'開始列

mergeCellClass.StartCol = 4

'終了行

mergeCellClass.EndRow = 2

'終了列

mergeCellClass.EndCol = 6

'色指定

mergeCellClass.BackColor = Color.Green

'登録

Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)

'------------------------------------

mergeCellClass = New MergeCellData

'開始行

mergeCellClass.StartRow = 3

'開始列

mergeCellClass.StartCol = 1

'終了行

mergeCellClass.EndRow = 3

'終了列

mergeCellClass.EndCol = 4

'色指定

mergeCellClass.BackColor = Color.Yellow

'登録

Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)

'------------------------------------

mergeCellClass = New MergeCellData

'開始行

mergeCellClass.StartRow = 4

'開始列

mergeCellClass.StartCol = 1

'終了行

mergeCellClass.EndRow = 4

'終了列

mergeCellClass.EndCol = 9

'色指定

mergeCellClass.BackColor = Color.Blue

'登録

Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)



'描画する

Me.DataGridViewForMerge1.Refresh()