DataGridView控件用法合集(八)

近期将DataGridView常用的一些用法做了一个整理。为防止页面过长，现分批贴出来，此为第八部分。

DataGridView Owner描画

41. DataGridView设置单元格背景颜色
42. DataGridView行样式描画
43. DataGridView显示行号
44. DataGridView焦点所在单元格焦点框不显示的设定

41. DataGridView设置单元格背景颜色

[VB.NET]

'CellPaintingイベントハンドラ

Private Sub DataGridView1_CellPainting(ByVal sender As Object,_

ByVal e As DataGridViewCellPaintingEventArgs) _

Handles DataGridView1.CellPainting

'ヘッダー以外のセルで、背景を描画する時

If e.ColumnIndex >= 0 AndAlso e.RowIndex >= 0 AndAlso _

(e.PaintParts And DataGridViewPaintParts.Background) = _

DataGridViewPaintParts.Background Then

'選択されているか調べ、色を決定する

'bColor1が開始色、bColor2が終了色

Dim bColor1,bColor2 As Color

If (e.PaintParts And DataGridViewPaintParts.SelectionBackground) = _

DataGridViewPaintParts.SelectionBackground AndAlso _

(e.State And DataGridViewElementStates.Selected) = _

DataGridViewElementStates.Selected Then

bColor1 = e.CellStyle.SelectionBackColor

bColor2 = Color.Black

Else

bColor1 = e.CellStyle.BackColor

bColor2 = Color.LemonChiffon

End If

'グラデーションブラシを作成

Dim b As New System.Drawing.drawing2d.LinearGradientBrush( _

e.CellBounds,bColor1,bColor2,_

System.Drawing.drawing2d.LinearGradientMode.Horizontal)

Try

'セルを塗りつぶす

e.Graphics.FillRectangle(b,e.CellBounds)

Finally

b.dispose()

End Try

'背景以外が描画されるようにする

Dim paintParts As DataGridViewPaintParts = _

e.PaintParts And Not DataGridViewPaintParts.Background

'セルを描画する

e.Paint(e.ClipBounds,paintParts)

'描画が完了したことを知らせる

e.Handled = True

End If

End Sub

[C#]

//CellPaintingイベントハンドラ

private void DataGridView1_CellPainting(object sender,

DataGridViewCellPaintingEventArgs e)

{

//ヘッダー以外のセルで、背景を描画する時

if (e.ColumnIndex >= 0 && e.RowIndex >= 0 &&

(e.PaintParts & DataGridViewPaintParts.Background) ==

DataGridViewPaintParts.Background)

{

//選択されているか調べ、色を決定する

//bColor1が開始色、bColor2が終了色

Color bColor1,bColor2;

if ((e.PaintParts & DataGridViewPaintParts.SelectionBackground) ==

DataGridViewPaintParts.SelectionBackground &&

(e.State & DataGridViewElementStates.Selected) ==

DataGridViewElementStates.Selected)

{

bColor1 = e.CellStyle.SelectionBackColor;

bColor2 = Color.Black;

}

else

{

bColor1 = e.CellStyle.BackColor;

bColor2 = Color.LemonChiffon;

}

//グラデーションブラシを作成

using (System.Drawing.drawing2d.LinearGradientBrush b =

new System.Drawing.drawing2d.LinearGradientBrush(

e.CellBounds,

System.Drawing.drawing2d.LinearGradientMode.Horizontal))

{

//セルを塗りつぶす

e.Graphics.FillRectangle(b,e.CellBounds);

}

//背景以外が描画されるようにする

DataGridViewPaintParts paintParts =

e.PaintParts & ~DataGridViewPaintParts.Background;

//セルを描画する

e.Paint(e.ClipBounds,paintParts);

//描画が完了したことを知らせる

e.Handled = true;

}

}

单元格背景显示图像

[VB.NET]

'セルの背景に表示する画像

Private cellBackImage As New Bitmap("C:/back.gif")

'CellPaintingイベントハンドラ

Private Sub DataGridView1_CellPainting(ByVal sender As Object,_

ByVal e As DataGridViewCellPaintingEventArgs) _

Handles DataGridView1.CellPainting

'ヘッダー以外のセルで、背景を描画する時

If e.ColumnIndex >= 0 AndAlso e.RowIndex >= 0 AndAlso _

(e.PaintParts And DataGridViewPaintParts.Background) = _

DataGridViewPaintParts.Background Then

'背景だけを描画する

Dim backParts As DataGridViewPaintParts = _

e.PaintParts And (DataGridViewPaintParts.Background Or _

DataGridViewPaintParts.SelectionBackground)

e.Paint(e.ClipBounds,backParts)

'画像をセルの真ん中に描画する

Dim x As Integer = e.CellBounds.X + _

(e.CellBounds.Width - cellBackImage.Width) / 2

Dim y As Integer = e.CellBounds.Y + _

(e.CellBounds.Height - cellBackImage.Height) / 2

e.Graphics.DrawImage(cellBackImage,x,y)

'背景以外が描画されるようにする

Dim paintParts As DataGridViewPaintParts = _

e.PaintParts And Not backParts

'セルを描画する

e.Paint(e.ClipBounds,paintParts)

'描画が完了したことを知らせる

e.Handled = True

End If

End Sub

[C#]

//セルの背景に表示する画像

private Bitmap cellBackImage = new Bitmap("C://back.gif");

//CellPaintingイベントハンドラ

private void DataGridView1_CellPainting(object sender,

DataGridViewCellPaintingEventArgs e)

{

//ヘッダー以外のセルで、背景を描画する時

if (e.ColumnIndex >= 0 && e.RowIndex >= 0 &&

(e.PaintParts & DataGridViewPaintParts.Background) ==

DataGridViewPaintParts.Background)

{

//背景だけを描画する

DataGridViewPaintParts backParts = e.PaintParts &

(DataGridViewPaintParts.Background |

DataGridViewPaintParts.SelectionBackground);

e.Paint(e.ClipBounds,backParts);

//画像をセルの真ん中に描画する

int x = e.CellBounds.X +

(e.CellBounds.Width - cellBackImage.Width) / 2;

int y = e.CellBounds.Y +

(e.CellBounds.Height - cellBackImage.Height) / 2;

e.Graphics.DrawImage(cellBackImage,y);

//背景以外が描画されるようにする

DataGridViewPaintParts paintParts =

e.PaintParts & ~backParts;

//セルを描画する

e.Paint(e.ClipBounds,paintParts);

//描画が完了したことを知らせる

e.Handled = true;

}

}

42. DataGridView行样式描画

利用RowPostPaint事件描画

[VB.NET]

'RowPostPaintイベントハンドラ

Private Sub DataGridView1_RowPostPaint(ByVal sender As Object,_

ByVal e As DataGridViewRowPostPaintEventArgs) _

Handles DataGridView1.RowPostPaint

Dim dgv As DataGridView = CType(sender,DataGridView)

'線の色を決定する

Dim linePen As Pen

Select Case e.RowIndex Mod 3

Case 0

linePen = Pens.Blue

Case 1

linePen = Pens.Green

Case Else

linePen = Pens.Red

End Select

'線を引く位置を計算する

Dim startX As Integer = IIf(dgv.RowHeadersVisible,dgv.RowHeadersWidth,0)

Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

Dim endX As Integer = startX + _

dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - _

dgv.HorizontalScrollingOffset

'線を引く

e.Graphics.DrawLine(linePen,startX,startY,endX,startY)

End Sub

[C#]

//RowPostPaintイベントハンドラ

private void DataGridView1_RowPostPaint(object sender,

DataGridViewRowPostPaintEventArgs e)

{

DataGridView dgv = (DataGridView)sender;

//線の色を決定する

Pen linePen;

switch (e.RowIndex % 3)

{

case 0:

linePen = Pens.Blue;

break;

case 1:

linePen = Pens.Green;

break;

default:

linePen = Pens.Red;

break;

}

//線を引く位置を計算する

int startX = dgv.RowHeadersVisible ? dgv.RowHeadersWidth : 0;

int startY = e.RowBounds.Top + e.RowBounds.Height - 1;

int endX = startX + dgv.Columns.GetColumnsWidth(

DataGridViewElementStates.Visible) -

dgv.HorizontalScrollingOffset;

//線を引く

e.Graphics.DrawLine(linePen,

startX,startY);

}

利用RowPrePaint事件描画

[VB.NET]

'RowPrePaintイベントハンドラ

Private Sub DataGridView1_RowPrePaint(ByVal sender As Object,_

ByVal e As DataGridViewRowPrePaintEventArgs) _

Handles DataGridView1.RowPrePaint

'背景を描画するか

If (e.PaintParts And DataGridViewPaintParts.Background) = _

DataGridViewPaintParts.Background Then

'選択されているか調べ、色を決定する

'bColor1が開始色、bColor2が終了色

Dim bColor1,bColor2 As Color

If (e.PaintParts And DataGridViewPaintParts.SelectionBackground) = _

DataGridViewPaintParts.SelectionBackground AndAlso _

(e.State And DataGridViewElementStates.Selected) = _

DataGridViewElementStates.Selected Then

bColor1 = e.InheritedRowStyle.SelectionBackColor

bColor2 = Color.Black

Else

bColor1 = e.InheritedRowStyle.BackColor

bColor2 = Color.YellowGreen

End If

'グラデーションの範囲を計算する

'ヘッダーを除くセルの部分だけ描画する

Dim dgv As DataGridView = CType(sender,DataGridView)

Dim rectLeft2 As Integer = _

IIf(dgv.RowHeadersVisible,0)

Dim rectLeft As Integer = _

rectLeft2 - dgv.HorizontalScrollingOffset

Dim rectWidth As Integer = _

dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible)

Dim rect As New Rectangle(rectLeft,e.RowBounds.Top,_

rectWidth,e.RowBounds.Height - 1)

'グラデーションブラシを作成

Using b As New System.Drawing.drawing2d.LinearGradientBrush( _

rect,_

System.Drawing.drawing2d.LinearGradientMode.Horizontal)

'描画する範囲を計算する

rect.X = rectLeft2

rect.Width -= dgv.HorizontalScrollingOffset

'セルを塗りつぶす

e.Graphics.FillRectangle(b,rect)

End Using

'ヘッダーを描画する

e.PaintHeader(True)

'背景を描画しないようにする

e.PaintParts = _

e.PaintParts And Not DataGridViewPaintParts.Background

End If

End Sub

'ColumnWidthChangedイベントハンドラ

Private Sub DataGridView1_ColumnWidthChanged(ByVal sender As Object,_

ByVal e As DataGridViewColumnEventArgs) _

Handles DataGridView1.ColumnWidthChanged

Dim dgv As DataGridView = CType(sender,DataGridView)

dgv.Invalidate()

End Sub

[C#]

//RowPrePaintイベントハンドラ

private void DataGridView1_RowPrePaint(object sender,

DataGridViewRowPrePaintEventArgs e)

{

//背景を描画するか

if ((e.PaintParts & DataGridViewPaintParts.Background) ==

DataGridViewPaintParts.Background)

{

//選択されているか調べ、色を決定する

//bColor1が開始色、bColor2が終了色

Color bColor1,bColor2;

if ((e.PaintParts & DataGridViewPaintParts.SelectionBackground) ==

DataGridViewPaintParts.SelectionBackground &&

(e.State & DataGridViewElementStates.Selected) ==

DataGridViewElementStates.Selected)

{

bColor1 = e.InheritedRowStyle.SelectionBackColor;

bColor2 = Color.Black;

}

else

{

bColor1 = e.InheritedRowStyle.BackColor;

bColor2 = Color.YellowGreen;

}

//グラデーションの範囲を計算する

//ヘッダーを除くセルの部分だけ描画する

DataGridView dgv = (DataGridView)sender;

int rectLeft2 = dgv.RowHeadersVisible ? dgv.RowHeadersWidth : 0;

int rectLeft = rectLeft2 - dgv.HorizontalScrollingOffset;

int rectWidth = dgv.Columns.GetColumnsWidth(

DataGridViewElementStates.Visible);

Rectangle rect = new Rectangle(rectLeft,

rectWidth,e.RowBounds.Height - 1);

//グラデーションブラシを作成

using (System.Drawing.drawing2d.LinearGradientBrush b =

new System.Drawing.drawing2d.LinearGradientBrush(

rect,

System.Drawing.drawing2d.LinearGradientMode.Horizontal))

{

//描画する範囲を計算する

rect.X = rectLeft2;

rect.Width -= dgv.HorizontalScrollingOffset;

//セルを塗りつぶす

e.Graphics.FillRectangle(b,rect);

}

//ヘッダーを描画する

e.PaintHeader(true);

//背景を描画しないようにする

e.PaintParts &= ~DataGridViewPaintParts.Background;

}

}

//ColumnWidthChangedイベントハンドラ

private void DataGridView1_ColumnWidthChanged(object sender,

DataGridViewColumnEventArgs e)

{

DataGridView dgv = (DataGridView)sender;

dgv.Invalidate();

}

43. DataGridView显示行号

[VB.NET]

'CellPaintingイベントハンドラ

Private Sub DataGridView1_CellPainting(ByVal sender As Object,_

ByVal e As DataGridViewCellPaintingEventArgs) _

Handles DataGridView1.CellPainting

'列ヘッダーかどうか調べる

If e.ColumnIndex < 0 And e.RowIndex >= 0 Then

'セルを描画する

e.Paint(e.ClipBounds,DataGridViewPaintParts.All)

'行番号を描画する範囲を決定する

'e.AdvancedBorderStyleやe.CellStyle.Paddingは無視しています

Dim indexRect As Rectangle = e.CellBounds

indexRect.Inflate(-2,-2)

'行番号を描画する

TextRenderer.DrawText(e.Graphics,_

(e.RowIndex + 1).ToString(),_

e.CellStyle.Font,_

indexRect,_

e.CellStyle.ForeColor,_

textformatFlags.Right Or textformatFlags.VerticalCenter)

'描画が完了したことを知らせる

e.Handled = True

End If

End Sub

[C#]

//CellPaintingイベントハンドラ

private void DataGridView1_CellPainting(object sender,

DataGridViewCellPaintingEventArgs e)

{

//列ヘッダーかどうか調べる

if (e.ColumnIndex < 0 && e.RowIndex >= 0)

{

//セルを描画する

e.Paint(e.ClipBounds,DataGridViewPaintParts.All);

//行番号を描画する範囲を決定する

//e.AdvancedBorderStyleやe.CellStyle.Paddingは無視しています

Rectangle indexRect = e.CellBounds;

indexRect.Inflate(-2,-2);

//行番号を描画する

TextRenderer.DrawText(e.Graphics,

(e.RowIndex + 1).ToString(),

e.CellStyle.Font,

indexRect,

e.CellStyle.ForeColor,

textformatFlags.Right | textformatFlags.VerticalCenter);

//描画が完了したことを知らせる

e.Handled = true;

}

}

利用RowPostPaint事件描画

[VB.NET]

'RowPostPaintイベントハンドラ

Private Sub DataGridView1_RowPostPaint(ByVal sender As Object,DataGridView)

If dgv.RowHeadersVisible Then

'行番号を描画する範囲を決定する

Dim rect As New Rectangle(e.RowBounds.Left,_

dgv.RowHeadersWidth,e.RowBounds.Height)

rect.Inflate(-2,-2)

'行番号を描画する

TextRenderer.DrawText(e.Graphics,_

(e.RowIndex + 1).ToString(),_

e.InheritedRowStyle.Font,_

rect,_

e.InheritedRowStyle.ForeColor,_

textformatFlags.Right Or textformatFlags.VerticalCenter)

End If

End Sub

[C#]

//RowPostPaintイベントハンドラ

private void DataGridView1_RowPostPaint(object sender,

DataGridViewRowPostPaintEventArgs e)

{

DataGridView dgv = (DataGridView)sender;

if (dgv.RowHeadersVisible)

{

//行番号を描画する範囲を決定する

Rectangle rect = new Rectangle(

e.RowBounds.Left,

dgv.RowHeadersWidth,e.RowBounds.Height);

rect.Inflate(-2,

e.InheritedRowStyle.Font,

rect,

e.InheritedRowStyle.ForeColor,

textformatFlags.Right | textformatFlags.VerticalCenter);

}

}

44. DataGridView焦点所在单元格焦点框不显示的设定

[VB.NET]

'CellPaintingイベントハンドラ

Private Sub DataGridView1_CellPainting(ByVal sender As Object,_

ByVal e As DataGridViewCellPaintingEventArgs) _

Handles DataGridView1.CellPainting

'ヘッダー以外のとき

If e.ColumnIndex >= 0 And e.RowIndex >= 0 Then

'フォーカス枠以外が描画されるようにする

Dim paintParts As DataGridViewPaintParts = _

e.PaintParts And Not DataGridViewPaintParts.Focus

'セルを描画する

e.Paint(e.ClipBounds,

DataGridViewCellPaintingEventArgs e)

{

//ヘッダー以外のとき

if (e.ColumnIndex >= 0 && e.RowIndex >= 0)

{

//フォーカス枠以外が描画されるようにする

DataGridViewPaintParts paintParts =

e.PaintParts & ~DataGridViewPaintParts.Focus;

//セルを描画する

e.Paint(e.ClipBounds,paintParts);

//描画が完了したことを知らせる

e.Handled = true;

}

}

利用RowPrePaint事件实现

[VB.NET]

'RowPrePaintイベントハンドラ

Private Sub DataGridView1_RowPrePaint(ByVal sender As Object,_

ByVal e As DataGridViewRowPrePaintEventArgs) _

Handles DataGridView1.RowPrePaint

'フォーカス枠を描画しない

e.PaintParts = e.PaintParts And Not DataGridViewPaintParts.Focus

End Sub

[C#]

//RowPrePaintイベントハンドラ

private void DataGridView1_RowPrePaint(object sender,

DataGridViewRowPrePaintEventArgs e)

{

//フォーカス枠を描画しない

e.PaintParts &= ~DataGridViewPaintParts.Focus;

}