goo blog サービス終了のお知らせ 

Visual Studio VB.NET Tips 集

プログラミング集です。
メインはVisual Basic .NET でございます。

セル結合ができるDataGridViewForMerge

2011-01-29 18:44:52 | 日記
データグリッドでセルが結合できないのは意外と不便に感じるものです、
そんな時には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()

DataGridでセルを結合できるコンポーネントとサンプルソース

2011-01-27 20:12:28 | 日記

MSFlexGridのようにセルを結合できるコンポーネントの紹介

ダウンロードはこちらで公開されています⇒Vector(ベクター) 1、結合はこんな感じになります。


2、複数のセル結合は表を作るのに最適


ダウンロードはこちらで公開されています⇒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)

        '描画する
        Me.DataGridViewForMerge1.Refresh()


グリッドGridでセルCellの結合Merge方法Method

2011-01-26 21:53:57 | 日記

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

<p> <a title="ctor(ベクター)からダウンロード" href="http://www.vector.co.jp/soft/winnt/prog/se488664.html" target="_blank">Vector(ベクター)からダウンロード</a>できます。 DataGridやDataGridViewで実現可能 <a href="http://blog-imgs-46.fc2.com/p/o/i/pointdaigo/merge0.jpg" target="_blank"><img width="320" height="199" alt="merge0.jpg" src="http://blog-imgs-46.fc2.com/p/o/i/pointdaigo/merge0.jpg" border="0" complete="true" /></a> </p>

<p>複数セルの結合も可能です。</p>

<p> <a href="http://blog-imgs-46.fc2.com/p/o/i/pointdaigo/merge1.jpg" target="_blank"><img width="320" height="199" alt="merge1.jpg" src="http://blog-imgs-46.fc2.com/p/o/i/pointdaigo/merge1.jpg" border="0" complete="true" /></a> </p>

<p>利用してみたいという方は、 <a title="ctor(ベクター)からダウンロード" href="http://www.vector.co.jp/soft/winnt/prog/se488664.html" target="_blank">Vector(ベクター)からダウンロード</a>できます。</p>