2011年1月29日土曜日

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

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

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

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






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

DataGridやDataGridViewで実現可能

merge0.jpg



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

merge1.jpg



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

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()

0 件のコメント:

コメントを投稿