昨日 の続きです。
今日は、
DataGridViewコントロール－バインド出来るデータソース（えムナウのプログラミングのページ）
と
DataGridViewコントロール－DataGridViewCellStyleクラス（えムナウのプログラミングのページ）
について、実装してみました。
ちょっとはまったのが、EnableHeadersVisualStyles に False を設定せねばいかんという事が抜けてたとこです。
VisualStyle が優先されちゃうんですね。
実行画像は、バインドに関しては省略します。想像通りです。たぶん。
■参考文献
DataGridViewコントロール－バインド出来るデータソース（えムナウのプログラミングのページ）
DataGridViewコントロール－DataGridViewCellStyleクラス（えムナウのプログラミングのページ）
DataGridViewCellStyle クラス
うさぎの穴をまっさかさま
■実行画像
色を変えたりして遊んだやつ
Public Class DataGridViewTest
Private Sub DataGridViewTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Size = New Size(600, 300)
'' TabControl に DataGridView を描画します。
Dim tabCntrl As TabControl = New TabControl
Me.Controls.Add(tabCntrl)
tabCntrl.Dock = DockStyle.Fill
tabCntrl.TabPages.Clear()
' TabPage の追加
Dim dgView1 As DataGridView = New DataGridView
Me.AddTabPage(tabCntrl, "DataGridViewコントロール－内部コントロールの種類", dgView1)
Me.DataGridViewコントロール_内部コントロールの種類(dgView1)
' TabPage の追加
Dim dgView2 As DataGridView = New DataGridView
Me.AddTabPage(tabCntrl, "DataGridViewコントロール－バインド出来るデータソース", dgView2)
Me.DataGridViewコントロール_バインド出来るデータソース(dgView2)
' TabPage の追加
Dim dgView3 As DataGridView = New DataGridView
Me.AddTabPage(tabCntrl, "DataGridViewコントロール－DataGridViewCellStyleクラス", dgView3)
Me.DataGridViewコントロール_DataGridViewCellStyleクラス(dgView3)
tabCntrl.SelectedIndex = tabCntrl.TabPages.Count - 1
End Sub
Private Sub DataGridViewコントロール_DataGridViewCellStyleクラス(ByVal dgView As DataGridView)
' なんか適当なデータをバインドする
Dim ds As DataSet = Me.CreateWankumaDataset()
dgView.DataSource = ds
ds.Tables(0).Columns.Add("NullColumn", GetType(String))
dgView.DataMember = ds.Tables(0).TableName
'' VisualStyles を使用しない
dgView.EnableHeadersVisualStyles = False
'' 列ヘッダ
Dim columnHeadersDefaultCellStyle As DataGridViewCellStyle = New DataGridViewCellStyle
columnHeadersDefaultCellStyle.BackColor = Color.DarkBlue
columnHeadersDefaultCellStyle.ForeColor = Color.LightBlue
columnHeadersDefaultCellStyle.Font = New Font("Goudy Stout", 10.0F, GraphicsUnit.Pixel)
dgView.ColumnHeadersDefaultCellStyle = columnHeadersDefaultCellStyle
'' 行ヘッダ
Dim rowHeadersDefaultCellStyle As DataGridViewCellStyle = New DataGridViewCellStyle
rowHeadersDefaultCellStyle.BackColor = Color.LightBlue
rowHeadersDefaultCellStyle.ForeColor = Color.DarkBlue
rowHeadersDefaultCellStyle.Font = New Font("Goudy Stout", 10.0F, GraphicsUnit.Pixel)
dgView.RowHeadersDefaultCellStyle = rowHeadersDefaultCellStyle
'' 行のデフォルト
Dim rowsDefaultCellStyle As DataGridViewCellStyle = New DataGridViewCellStyle
rowsDefaultCellStyle.BackColor = Color.Honeydew
rowsDefaultCellStyle.ForeColor = Color.DarkGreen
rowsDefaultCellStyle.NullValue = "(Null)"
dgView.RowsDefaultCellStyle = rowsDefaultCellStyle
'' 奇数行
Dim alternatingRowsDefaultCellStyle As DataGridViewCellStyle = New DataGridViewCellStyle
alternatingRowsDefaultCellStyle.BackColor = Color.Ivory
alternatingRowsDefaultCellStyle.ForeColor = Color.Red
dgView.AlternatingRowsDefaultCellStyle = alternatingRowsDefaultCellStyle
'' セルのデフォルト
Dim defaultCellStyle As DataGridViewCellStyle = New DataGridViewCellStyle
defaultCellStyle.Font = New Font("ＭＳ 明朝", 10.0F, FontStyle.Bold)
dgView.DefaultCellStyle = defaultCellStyle
'' 2 行目の色を変える
Dim jeanneCellStyle As DataGridViewCellStyle = New DataGridViewCellStyle
jeanneCellStyle.BackColor = Color.MediumTurquoise
jeanneCellStyle.ForeColor = Color.White
dgView.Rows(1).DefaultCellStyle = jeanneCellStyle
' '' NullColumn の色を変える(RowsDefaultCellStyle の方が優先して適用される)
'Dim nullColumnCellStyle As DataGridViewCellStyle = New DataGridViewCellStyle
'nullColumnCellStyle.BackColor = Color.Black
'nullColumnCellStyle.ForeColor = Color.White
'dgView.Columns(2).DefaultCellStyle = nullColumnCellStyle
'' 4 行目、2 列目のセルの色を変える
Dim naokoCellStyle As DataGridViewCellStyle = New DataGridViewCellStyle
naokoCellStyle.BackColor = Color.Maroon
naokoCellStyle.ForeColor = Color.White
dgView.Rows(3).Cells(1).Style = naokoCellStyle
' カスタム描画
AddHandler dgView.CellPainting, AddressOf Me.CustomCellPaint
End Sub
Private Sub CustomCellPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs)
If e.ColumnIndex <> 1 OrElse e.RowIndex <> 0 Then Return
Dim rect As Rectangle = New Rectangle(e.CellBounds.X, e.CellBounds.Y, e.CellBounds.Width - 1, e.CellBounds.Height - 1)
'// Render cell background
Using brush As System.Drawing.Drawing2D.LinearGradientBrush _
= New System.Drawing.Drawing2D.LinearGradientBrush(rect, Color.White, Color.LightCoral, 0.0F)
e.Graphics.FillRectangle(brush, rect)
End Using
'// Render cell border
Using pen As Pen = New Pen(System.Drawing.SystemColors.ControlDark)
e.Graphics.DrawRectangle(pen, e.CellBounds.X - 1, e.CellBounds.Y - 1, e.CellBounds.Width, e.CellBounds.Height)
End Using
'// Render cell value
Dim format As StringFormat = New StringFormat()
format.LineAlignment = StringAlignment.Center
format.Alignment = StringAlignment.Far
Using valueBrush As SolidBrush = New SolidBrush(e.CellStyle.ForeColor)
e.Graphics.DrawString(e.Value.ToString(), e.CellStyle.Font, valueBrush, rect)
End Using
e.Handled = True
End Sub
Private Sub DataGridViewコントロール_バインド出来るデータソース(ByVal dgView As DataGridView)
' IBindingList または ITypedList を実装する任意のクラス
Dim ds As DataSet = Me.CreateWankumaDataset()
' DataSet をバインド
dgView.DataSource = ds
dgView.DataMember = ds.Tables(0).TableName
' DataTable をバインド
dgView.DataSource = ds.Tables(0)
' DataView をバインド
Dim dv As DataView = New DataView(ds.Tables(0))
dv.RowFilter = "[NAME] = 'なおこ(・∀・)'"
dgView.DataSource = dv
' DataViewManager をバインド
Dim dvm As DataViewManager = New DataViewManager(ds)
dvm.DataViewSettings(ds.Tables(0).TableName).Sort = "[ID] DESC"
dgView.DataSource = dvm
dgView.DataMember = ds.Tables(0).TableName
'' IList を実装し、オブジェクトのインデックス付きコレクションを作成する任意のクラス
' ArrayList をバインド
Dim petsArr As ArrayList = New ArrayList
petsArr.Add(New Pet("ふじこ", 3))
petsArr.Add(New Pet("エデン", 2))
petsArr.Add(New Pet("オット", 0))
dgView.DataSource = petsArr
' 厳密に型指定されたオブジェクトの、厳密に型指定された IList
' Pet 型の配列をバインド
Dim pets() As Pet = {New Pet("ふじこ", 3), New Pet("エデン", 2), New Pet("オット", -1)}
dgView.DataSource = pets
' List(Of T) をバインド
Dim petsList As List(Of Pet) = New List(Of Pet)
petsList.Add(New Pet("ふじこ", 3))
petsList.Add(New Pet("エデン", 2))
petsList.Add(New Pet("オット", 10000))
dgView.DataSource = petsList
End Sub
#Region "Private Sub DataGridViewコントロール_内部コントロールの種類"
DataGridView（System.Windows.Forms.DataGridView）その１参照
#End Region
#Region "Private Sub OnCellContentClick"
DataGridView（System.Windows.Forms.DataGridView）その１参照
#End Region
#Region "Private Sub AddTabPage"
DataGridView（System.Windows.Forms.DataGridView）その１参照
#End Region
' WANKUMA Dataset の作成
Private Function CreateWankumaDataset() As DataSet
Dim ds As DataSet = New DataSet("WANKUMA")
Dim dt As DataTable = New DataTable("MEMBERS")
Dim idColumn As DataColumn = New DataColumn("ID", GetType(Integer))
idColumn.AutoIncrement = True
idColumn.AutoIncrementSeed = 1L
idColumn.AutoIncrementStep = 1L
idColumn.ReadOnly = True
dt.Columns.Add(idColumn)
dt.Columns.Add("NAME", GetType(String))
Dim wankumaMembers As String() = _
{"中博俊", "じゃんぬねっと", "夏椰", "なおこ(・∀・)", _
"まゆりん", "Jitta", "trapemiya", "やねうらお", "囚人", _
"Moo", "maint", "επιστημη(えぴすてーめー)", _
"とっちゃん", "おぎわら", "えムナウ", "買太郎", _
"むたぐち", "aera", "taos", "ue", "ognac", _
"108bones", "ghost_shell", "黒龍", "koka", "inogucci", _
"ヽ(ﾟ∀｡)ﾉうぇね", "アクア", "n", "zee", "十郎", _
"Pandora", "刈歩 菜良", "R・田中一郎", "十兵衛（諸農）", _
"まさぶん", "まどか", "ゆき", "恣意の", "ひろえむ", _
"taka", "c", "DS7", "w", "沢渡真雪", "THREE-ONE", _
"Blue", "RAPT", "初音玲", "のぶさん", "ぽぴ王子", "g", "a", "s"}
For Each name As String In wankumaMembers
Dim row As DataRow = dt.NewRow()
row("NAME") = name
dt.Rows.Add(row)
Next
ds.Tables.Add(dt)
Return ds
End Function
End Class
''' <summary>
''' ぺっとクラス
''' </summary>
Public Class Pet
Private m_name As String
Private m_age As Integer
Public Sub New(ByVal name As String, ByVal age As Integer)
Me.m_name = name
Me.m_age = age
End Sub
Public ReadOnly Property Name() As String
Get
Return Me.m_name
End Get
End Property
Public ReadOnly Property Age() As Integer
Get
Return Me.m_age
End Get
End Property
End Class