【VB.NET】DataGridViewの列ヘッダーの複数行表示するカスタムコントロール②

前回の記事で作成したCustomDataGridViewの使用例です。

プロジェクトにフォームを追加しツールボックスからCustomDataGridViewをフォームに配置します。

先ずはColumnHeaderHeigthSizeModeプロパティをAutoSize以外に設定します。

次に新たに追加したプロパティを設定します。

HeaderCellプロパティをクリックするとHeaderCellコレクションエディターが開くので

HeaderCellを追加設定します。

OKボタンをクリックするとHeaderCellの設定がフォームデザイナーのCustomDataGridViewに

反映されます。

実行結果

HeaderCellは並び順に上書きされます。

またフォームにCustomDataGridviewを配置しコードからプロパティの設定もできます。

Imports System.Reflection
Imports System.Windows.Forms.ComboBox

Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        'サンプルデータテーブル
        Dim dt As New DataTable
        dt.Columns.Add("NO", Type.GetType("System.Double"))
        dt.Columns.Add("CATEGORY1", Type.GetType("System.String"))
        dt.Columns.Add("CATEGORY2", Type.GetType("System.String"))
        dt.Columns.Add("CATEGORY3", Type.GetType("System.String"))
        dt.Columns.Add("NAME", Type.GetType("System.String"))
        dt.Columns.Add("VAL1", Type.GetType("System.Double"))
        dt.Columns.Add("VAL2", Type.GetType("System.Double"))
        dt.Columns.Add("VAL3", Type.GetType("System.Double"))
        dt.Columns.Add("VAL4", Type.GetType("System.Double"))
        dt.Columns.Add("VAL5", Type.GetType("System.Double"))

        Dim r As New System.Random(1000)

        Dim no As Integer = 0
        For j1 = 0 To 100
            For j2 = 0 To 5
                For j3 = 0 To 3
                    Dim nr As DataRow = dt.NewRow
                    nr("NO") = no
                    nr("CATEGORY1") = "分類" & j1.ToString("00")
                    nr("CATEGORY2") = "分類" & j2.ToString("00")
                    nr("CATEGORY3") = "分類" & j3.ToString("00")
                    nr("NAME") = "名前" & j1.ToString("00") & j2.ToString("00") & j3.ToString("00")
                    nr("VAL1") = r.Next(10000)
                    nr("VAL2") = r.Next(10000)
                    nr("VAL3") = r.Next(10000)
                    nr("VAL4") = r.Next(10000)
                    nr("VAL5") = r.Next(10000)
                    dt.Rows.Add(nr)

                    no += 1
                Next
            Next
        Next

        
        'CustomHeaderDataGridView1の設定
        Me.CustomHeaderDataGridView1.DataSource = dt

        Me.CustomHeaderDataGridView1.ColumnHeaderBorderStyle = CustomHeaderDataGridView.HeaderCellBorderStyle.DoubleLine
        Me.CustomHeaderDataGridView1.ColumnHeaderRowCount = 2
        Me.CustomHeaderDataGridView1.ColumnHeaderRowHeight = 17

        'ヘッダーセル定義
        Dim cells As New HeaderCell
        cells.Column = 0
        cells.Row = 0
        cells.ColumnSpan = 1
        cells.RowSpan = 2
        cells.SortVisible = True
        cells.Text = "NO"
        cells.TextAlign = DataGridViewContentAlignment.MiddleCenter
        Me.CustomHeaderDataGridView1.HeaderCells.Add(cells)

        cells = New HeaderCell
        cells.Column = 1
        cells.Row = 0
        cells.ColumnSpan = 3
        cells.RowSpan = 1
        cells.SortVisible = True
        cells.Text = "CATEGORY"
        cells.TextAlign = DataGridViewContentAlignment.MiddleCenter
        Me.CustomHeaderDataGridView1.HeaderCells.Add(cells)

        cells = New HeaderCell
        cells.Column = 4
        cells.Row = 0
        cells.ColumnSpan = 1
        cells.RowSpan = 2
        cells.SortVisible = True
        cells.Text = "NAME"
        cells.TextAlign = DataGridViewContentAlignment.MiddleCenter
        Me.CustomHeaderDataGridView1.HeaderCells.Add(cells)

        cells = New HeaderCell
        cells.Column = 5
        cells.Row = 0
        cells.ColumnSpan = 5
        cells.RowSpan = 1
        cells.SortVisible = True
        cells.Text = "VAL"
        cells.TextAlign = DataGridViewContentAlignment.MiddleCenter
        Me.CustomHeaderDataGridView1.HeaderCells.Add(cells)

        'ヘッダーサイズモード
        Me.CustomHeaderDataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
    End Sub
End Class

実行結果

（注意点）　
ColumnHeadersHeightSizeModeは手動でAutoSize以外に変更する必要があります。

四角形と文字を描画しているだけなので結合されたセル上でマウスクリックされた場合はその直下の列がソートされます。