Realy nice datagridview

Introduction

The article demonstrates how to give. Net datagridview a nice look n 'feel, by handling the datagridview cellpaining event.

Function to draw the column header.

<span class="code-keyword">Protected</span> <span class="code-keyword">Sub</span> DrawColumnHeader(<span class="code-keyword">ByVal</span> e <span class="code-keyword">As</span> System.Windows.Forms.DataGridViewCellPaintingEventArgs)<span class="code-keyword">Dim</span> h <span class="code-keyword">As</span> <span class="code-keyword">Integer</span> = e.CellBounds.Height<span class="code-keyword">Dim</span> w <span class="code-keyword">As</span> <span class="code-keyword">Integer</span> = e.CellBounds.Width<span class="code-keyword">Dim</span> h1 <span class="code-keyword">As</span> <span class="code-keyword">Integer</span> = h * <span class="code-digit">0</span>.<span class="code-digit">4</span><span class="code-keyword">Dim</span> ct <span class="code-keyword">As</span> <span class="code-keyword">New</span> OfficeColorTable<span class="code-keyword">Dim</span> r1 <span class="code-keyword">As</span> Rectangle = <span class="code-keyword">New</span> Rectangle(e.CellBounds.X, e.CellBounds.Y, w, h1)<span class="code-keyword">Dim</span> r2 <span class="code-keyword">As</span> Rectangle = <span class="code-keyword">New</span> Rectangle(e.CellBounds.X, h1, w, h - h1 + <span class="code-digit">1</span>)<span class="code-keyword">Dim</span> lb1 <span class="code-keyword">As</span> LinearGradientBrush = _<span class="code-keyword">New</span> LinearGradientBrush(r1, ct.ColumnHeaderStartColor, ct.ColumnHeaderMidColor1, Drawing2D.LinearGradientMode.Vertical)<span class="code-keyword">Dim</span> lb2 <span class="code-keyword">As</span> LinearGradientBrush = _<span class="code-keyword">New</span> LinearGradientBrush(r2, ct.ColumnHeaderMidColor2, ct.ColumnHeaderEndColor, Drawing2D.LinearGradientMode.Vertical)<span class="code-keyword">Dim</span> p <span class="code-keyword">As</span> Pen = <span class="code-keyword">New</span> Pen(ct.GridColor, <span class="code-digit">1</span>)<span class="code-keyword">Dim</span> frmt <span class="code-keyword">As</span> StringFormat = <span class="code-keyword">New</span> StringFormatfrmt.Alignment = StringAlignment.Centerfrmt.FormatFlags = StringFormatFlags.DisplayFormatControlfrmt.LineAlignment = StringAlignment.Center<span class="code-keyword">With</span> e.Graphics.FillRectangle(lb1, r1).FillRectangle(lb2, r2).DrawRectangle(p, e.CellBounds)<span class="code-keyword">End</span> <span class="code-keyword">With</span><span class="code-keyword">End</span> <span class="code-keyword">Sub</span>

Function to draw datagridview cells.

<span class="code-keyword">Protected</span> <span class="code-keyword">Sub</span> DrawCell(<span class="code-keyword">ByVal</span> e <span class="code-keyword">As</span> System.Windows.Forms.DataGridViewCellPaintingEventArgs)<span class="code-keyword">Dim</span> r1 <span class="code-keyword">As</span> Rectangle = <span class="code-keyword">New</span> Rectangle(e.CellBounds.X, e.CellBounds.Y, e.CellBounds.Width, e.CellBounds.Height)<span class="code-keyword">Dim</span> r2 <span class="code-keyword">As</span> Rectangle = <span class="code-keyword">New</span> Rectangle(e.CellBounds.X, e.CellBounds.Y, e.CellBounds.Width, e.CellBounds.Height)<span class="code-keyword">Dim</span> ct <span class="code-keyword">As</span> <span class="code-keyword">New</span> OfficeColorTable<span class="code-keyword">Dim</span> cellColor <span class="code-keyword">As</span> Color<span class="code-keyword">Dim</span> borderColor <span class="code-keyword">As</span> Color<span class="code-keyword">Dim</span> p <span class="code-keyword">As</span> Pen<span class="code-keyword">If</span> e.State = <span class="code-digit">97</span> <span class="code-keyword">Or</span> e.State = <span class="code-digit">105</span> <span class="code-keyword">Then</span>borderColor = ct.GridColorcellColor = ct.ActiveCellColorp = <span class="code-keyword">New</span> Pen(borderColor, <span class="code-digit">1</span>)<span class="code-keyword">Else</span>borderColor = ct.GridColorp = <span class="code-keyword">New</span> Pen(borderColor, <span class="code-digit">1</span>)<span class="code-keyword">If</span> e.State = <span class="code-digit">109</span> <span class="code-keyword">Then</span>cellColor = ct.ReadonlyCellColor<span class="code-keyword">Else</span>cellColor = ct.DefaultCellColor<span class="code-keyword">End</span> <span class="code-keyword">If</span><span class="code-keyword">End</span> <span class="code-keyword">If</span><span class="code-keyword">If</span> e.ColumnIndex &lt; <span class="code-digit">0</span> <span class="code-keyword">Then</span>cellColor = ct.ColumnHeaderMidColor2<span class="code-keyword">End</span> <span class="code-keyword">If</span><span class="code-keyword">With</span> e.Graphics.FillRectangle(<span class="code-keyword">New</span> SolidBrush(cellColor), e.CellBounds)<span class="code-keyword">Dim</span> rnd <span class="code-keyword">As</span> <span class="code-keyword">New</span> Renderer<span class="code-keyword">If</span> e.State = <span class="code-digit">97</span> <span class="code-keyword">Then</span>rnd.Fill3DRectangle(e.CellBounds, Renderer.RenderingMode.Office2007OrangeHover, e.Graphics)<span class="code-keyword">End</span> <span class="code-keyword">If</span><span class="code-keyword">If</span> e.ColumnIndex &lt; <span class="code-digit">0</span> <span class="code-keyword">Then</span><span class="code-keyword">If</span> e.State = <span class="code-digit">97</span> <span class="code-keyword">Then</span>rnd.FillGradientRectangle(e.CellBounds, Renderer.RenderingMode.Office2007OrangeHover, e.Graphics)<span class="code-keyword">Else</span>rnd.FillGradientRectangle(e.CellBounds, Renderer.RenderingMode.Office2007GrayHover, e.Graphics)<span class="code-keyword">End</span> <span class="code-keyword">If</span><span class="code-keyword">End</span> <span class="code-keyword">If</span>.DrawRectangle(p, e.CellBounds).DrawRectangle(p, <span class="code-keyword">New</span> Rectangle(e.CellBounds.X, e.CellBounds.Y, e.CellBounds.Width, <span class="code-keyword">Me</span>.Height))<span class="code-keyword">End</span> <span class="code-keyword">With</span><span class="code-keyword">End</span> <span class="code-keyword">Sub</span>

<SPAN class = "code-keyword"> from: <a href = "http://www.ueow.com"> http://www.ueow.com </a> </span>