msdn.vb.lang forum grid

Hi,

You need to make your own columnstyle for that. Here is a column i
am working on that does that.

Code

Imports System.Drawing

Imports System.Drawing. Drawing2D

Imports System.Windows. Forms

Imports System.Reflecti on

Imports System.Componen tModel

Public Class HotTrackTextBox Column

Inherits DataGridTextBox Column

Dim c As Integer

Dim rectPaint As New RectangleF

Dim fnt As New Font(MyBase.Tex tBox.Font.Name, MyBase.TextBox. Font.Size,
FontStyle.Under line)

Dim WithEvents dg As DataGrid

Dim oldCell As New Point(-1, -1)

Dim isInCell As Boolean = False

Public Sub HandleMouseMove (ByVal sender As Object, ByVal e As
MouseEventArgs) Handles dg.MouseMove

Dim g As Graphics = dg.CreateGraphi cs

Dim bounds As Rectangle

Dim hti As DataGrid.HitTes tInfo = dg.HitTest(New Point(e.X, e.Y))

isInCell = (hti.Row > -1 And hti.Column = c)

Static bRedraw As Boolean = False

If isInCell Then

Dim pt As Point

pt = New Point(hti.Row, hti.Column)

If Not pt.Equals(oldCe ll) Then

'

' Create a region where we want the datagrid to redraw

' So the datagrid doesn't flash.

'

Dim pthToRedraw As New Drawing2D.Graph icsPath

Dim rgnToRedraw As Region

Dim rCell As Rectangle = dg.GetCellBound s(pt.X, pt.Y)

pthToRedraw.Add Rectangle(rCell )

If oldCell.X > -1 Then

'

' Have to redraw last cell

'

pthToRedraw.Add Rectangle(dg.Ge tCellBounds(old Cell.X, oldCell.Y))

End If

rgnToRedraw = New Region(pthToRed raw)

dg.Invalidate(r gnToRedraw)

End If

'

' Flag datagrid for redraw

'

bRedraw = True

oldCell = pt

Else

'

' Only redraw when needed

'

If bRedraw Then

dg.Invalidate(d g.GetCellBounds (oldCell.X, oldCell.Y))

End If

bRedraw = False

oldCell = New Point(-1, -1)

End If

End Sub

Protected Overloads Overrides Sub Paint(ByVal g As System.Drawing. Graphics,
ByVal bounds As System.Drawing. Rectangle, ByVal source As
System.Windows. Forms.CurrencyM anager, ByVal rowNum As Integer, ByVal
backBrush As System.Drawing. Brush, ByVal foreBrush As System.Drawing. Brush,
ByVal alignToRight As Boolean)

Static bPainted As Boolean = False

'

' First time we paint get a reference to datagrid

' So we can consume its events

'

If Not bPainted Then

dg = Me.DataGridTabl eStyle.DataGrid

c = -1

For Each grdCol As DataGridColumnS tyle In
Me.DataGridTabl eStyle.GridColu mnStyles

c += 1

If grdCol.MappingN ame = Me.MappingName Then Exit For

Next

End If

bPainted = True

MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, alignToRight)

Dim pnHot As New Pen(SystemColor s.HotTrack)

Dim brHot As New SolidBrush(Colo r.FromArgb(128, SystemColors.Ho tTrack))

' see through brush

If MouseOverCell(r owNum) Then

bounds.Inflate(-1, -1)

g.FillRectangle (brHot, bounds)

g.DrawRectangle (pnHot, bounds)

End If

Dim r As New RectangleF(boun ds.X, bounds.Y, bounds.Width, bounds.Height)

rectPaint = r

End Sub

Public ReadOnly Property MouseOverCell(B yVal rownum As Integer) As Boolean

Get

Dim pt As New Point(rownum, c)

Return pt.Equals(oldCe ll)

End Get

End Property

End Class
Link to example
http://www.onteorasoftware.com/Downl...lumnstyles.zip

Ken
-----------------------
"rodchar" <ro*****@discus sions.microsoft .com> wrote in message
news:46******** *************** ***********@mic rosoft.com...
Hey all,

You notice how when you mouse over each thread in this forum how the
highlights, well how can I do this same thing in my win form with my
datagrid?

thanks,
rodchar

I appreciate it.

"Ken Tucker [MVP]" wrote:

Hi,

You need to make your own columnstyle for that. Here is a column i
am working on that does that.

Code

Imports System.Drawing

Imports System.Drawing. Drawing2D

Imports System.Windows. Forms

Imports System.Reflecti on

Imports System.Componen tModel

Public Class HotTrackTextBox Column

Inherits DataGridTextBox Column

Dim c As Integer

Dim rectPaint As New RectangleF

Dim fnt As New Font(MyBase.Tex tBox.Font.Name, MyBase.TextBox. Font.Size,
FontStyle.Under line)

Dim WithEvents dg As DataGrid

Dim oldCell As New Point(-1, -1)

Dim isInCell As Boolean = False

Public Sub HandleMouseMove (ByVal sender As Object, ByVal e As
MouseEventArgs) Handles dg.MouseMove

Dim g As Graphics = dg.CreateGraphi cs

Dim bounds As Rectangle

Dim hti As DataGrid.HitTes tInfo = dg.HitTest(New Point(e.X, e.Y))

isInCell = (hti.Row > -1 And hti.Column = c)

Static bRedraw As Boolean = False

If isInCell Then

Dim pt As Point

pt = New Point(hti.Row, hti.Column)

If Not pt.Equals(oldCe ll) Then

'

' Create a region where we want the datagrid to redraw

' So the datagrid doesn't flash.

'

Dim pthToRedraw As New Drawing2D.Graph icsPath

Dim rgnToRedraw As Region

Dim rCell As Rectangle = dg.GetCellBound s(pt.X, pt.Y)

pthToRedraw.Add Rectangle(rCell )

If oldCell.X > -1 Then

'

' Have to redraw last cell

'

pthToRedraw.Add Rectangle(dg.Ge tCellBounds(old Cell.X, oldCell.Y))

End If

rgnToRedraw = New Region(pthToRed raw)

dg.Invalidate(r gnToRedraw)

End If

'

' Flag datagrid for redraw

'

bRedraw = True

oldCell = pt

Else

'

' Only redraw when needed

'

If bRedraw Then

dg.Invalidate(d g.GetCellBounds (oldCell.X, oldCell.Y))

End If

bRedraw = False

oldCell = New Point(-1, -1)

End If

End Sub

Protected Overloads Overrides Sub Paint(ByVal g As System.Drawing. Graphics,
ByVal bounds As System.Drawing. Rectangle, ByVal source As
System.Windows. Forms.CurrencyM anager, ByVal rowNum As Integer, ByVal
backBrush As System.Drawing. Brush, ByVal foreBrush As System.Drawing. Brush,
ByVal alignToRight As Boolean)

Static bPainted As Boolean = False

'

' First time we paint get a reference to datagrid

' So we can consume its events

'

If Not bPainted Then

dg = Me.DataGridTabl eStyle.DataGrid

c = -1

For Each grdCol As DataGridColumnS tyle In
Me.DataGridTabl eStyle.GridColu mnStyles

c += 1

If grdCol.MappingN ame = Me.MappingName Then Exit For

Next

End If

bPainted = True

MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, alignToRight)

Dim pnHot As New Pen(SystemColor s.HotTrack)

Dim brHot As New SolidBrush(Colo r.FromArgb(128, SystemColors.Ho tTrack))

' see through brush

If MouseOverCell(r owNum) Then

bounds.Inflate(-1, -1)

g.FillRectangle (brHot, bounds)

g.DrawRectangle (pnHot, bounds)

End If

Dim r As New RectangleF(boun ds.X, bounds.Y, bounds.Width, bounds.Height)

rectPaint = r

End Sub

Public ReadOnly Property MouseOverCell(B yVal rownum As Integer) As Boolean

Get

Dim pt As New Point(rownum, c)

Return pt.Equals(oldCe ll)

End Get

End Property

End Class
Link to example
http://www.onteorasoftware.com/Downl...lumnstyles.zip

Ken
-----------------------
"rodchar" <ro*****@discus sions.microsoft .com> wrote in message
news:46******** *************** ***********@mic rosoft.com...
Hey all,

You notice how when you mouse over each thread in this forum how the
highlights, well how can I do this same thing in my win form with my
datagrid?

thanks,
rodchar

all the code goes behind my Form1 code behind?

"Ken Tucker [MVP]" wrote:

Hi,

You need to make your own columnstyle for that. Here is a column i
am working on that does that.

Code

Imports System.Drawing

Imports System.Drawing. Drawing2D

Imports System.Windows. Forms

Imports System.Reflecti on

Imports System.Componen tModel

Public Class HotTrackTextBox Column

Inherits DataGridTextBox Column

Dim c As Integer

Dim rectPaint As New RectangleF

Dim fnt As New Font(MyBase.Tex tBox.Font.Name, MyBase.TextBox. Font.Size,
FontStyle.Under line)

Dim WithEvents dg As DataGrid

Dim oldCell As New Point(-1, -1)

Dim isInCell As Boolean = False

Public Sub HandleMouseMove (ByVal sender As Object, ByVal e As
MouseEventArgs) Handles dg.MouseMove

Dim g As Graphics = dg.CreateGraphi cs

Dim bounds As Rectangle

Dim hti As DataGrid.HitTes tInfo = dg.HitTest(New Point(e.X, e.Y))

isInCell = (hti.Row > -1 And hti.Column = c)

Static bRedraw As Boolean = False

If isInCell Then

Dim pt As Point

pt = New Point(hti.Row, hti.Column)

If Not pt.Equals(oldCe ll) Then

'

' Create a region where we want the datagrid to redraw

' So the datagrid doesn't flash.

'

Dim pthToRedraw As New Drawing2D.Graph icsPath

Dim rgnToRedraw As Region

Dim rCell As Rectangle = dg.GetCellBound s(pt.X, pt.Y)

pthToRedraw.Add Rectangle(rCell )

If oldCell.X > -1 Then

'

' Have to redraw last cell

'

pthToRedraw.Add Rectangle(dg.Ge tCellBounds(old Cell.X, oldCell.Y))

End If

rgnToRedraw = New Region(pthToRed raw)

dg.Invalidate(r gnToRedraw)

End If

'

' Flag datagrid for redraw

'

bRedraw = True

oldCell = pt

Else

'

' Only redraw when needed

'

If bRedraw Then

dg.Invalidate(d g.GetCellBounds (oldCell.X, oldCell.Y))

End If

bRedraw = False

oldCell = New Point(-1, -1)

End If

End Sub

Protected Overloads Overrides Sub Paint(ByVal g As System.Drawing. Graphics,
ByVal bounds As System.Drawing. Rectangle, ByVal source As
System.Windows. Forms.CurrencyM anager, ByVal rowNum As Integer, ByVal
backBrush As System.Drawing. Brush, ByVal foreBrush As System.Drawing. Brush,
ByVal alignToRight As Boolean)

Static bPainted As Boolean = False

'

' First time we paint get a reference to datagrid

' So we can consume its events

'

If Not bPainted Then

dg = Me.DataGridTabl eStyle.DataGrid

c = -1

For Each grdCol As DataGridColumnS tyle In
Me.DataGridTabl eStyle.GridColu mnStyles

c += 1

If grdCol.MappingN ame = Me.MappingName Then Exit For

Next

End If

bPainted = True

MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, alignToRight)

Dim pnHot As New Pen(SystemColor s.HotTrack)

Dim brHot As New SolidBrush(Colo r.FromArgb(128, SystemColors.Ho tTrack))

' see through brush

If MouseOverCell(r owNum) Then

bounds.Inflate(-1, -1)

g.FillRectangle (brHot, bounds)

g.DrawRectangle (pnHot, bounds)

End If

Dim r As New RectangleF(boun ds.X, bounds.Y, bounds.Width, bounds.Height)

rectPaint = r

End Sub

Public ReadOnly Property MouseOverCell(B yVal rownum As Integer) As Boolean

Get

Dim pt As New Point(rownum, c)

Return pt.Equals(oldCe ll)

End Get

End Property

End Class
Link to example
http://www.onteorasoftware.com/Downl...lumnstyles.zip

Ken
-----------------------
"rodchar" <ro*****@discus sions.microsoft .com> wrote in message
news:46******** *************** ***********@mic rosoft.com...
Hey all,

You notice how when you mouse over each thread in this forum how the
highlights, well how can I do this same thing in my win form with my
datagrid?

thanks,
rodchar

Rodchar,

I am still not sure if you are making programs for the web of for windows
forms, what is it, and when it is webform, I advice you to tell that in your
questions, I think I remember it when you answer it now. However in this
newsgroup is the winform default when not told.

Cor

Hi,

Sorry assumed this was for a windows form grid

Ken
-------------------------
"rodchar" <ro*****@discus sions.microsoft .com> wrote in message
news:B2******** *************** ***********@mic rosoft.com...
all the code goes behind my Form1 code behind?

"Ken Tucker [MVP]" wrote:

Hi,

You need to make your own columnstyle for that. Here is a column
i
am working on that does that.

Code

Imports System.Drawing

Imports System.Drawing. Drawing2D

Imports System.Windows. Forms

Imports System.Reflecti on

Imports System.Componen tModel

Public Class HotTrackTextBox Column

Inherits DataGridTextBox Column

Dim c As Integer

Dim rectPaint As New RectangleF

Dim fnt As New Font(MyBase.Tex tBox.Font.Name, MyBase.TextBox. Font.Size,
FontStyle.Under line)

Dim WithEvents dg As DataGrid

Dim oldCell As New Point(-1, -1)

Dim isInCell As Boolean = False

Public Sub HandleMouseMove (ByVal sender As Object, ByVal e As
MouseEventArgs) Handles dg.MouseMove

Dim g As Graphics = dg.CreateGraphi cs

Dim bounds As Rectangle

Dim hti As DataGrid.HitTes tInfo = dg.HitTest(New Point(e.X, e.Y))

isInCell = (hti.Row > -1 And hti.Column = c)

Static bRedraw As Boolean = False

If isInCell Then

Dim pt As Point

pt = New Point(hti.Row, hti.Column)

If Not pt.Equals(oldCe ll) Then

'

' Create a region where we want the datagrid to redraw

' So the datagrid doesn't flash.

'

Dim pthToRedraw As New Drawing2D.Graph icsPath

Dim rgnToRedraw As Region

Dim rCell As Rectangle = dg.GetCellBound s(pt.X, pt.Y)

pthToRedraw.Add Rectangle(rCell )

If oldCell.X > -1 Then

'

' Have to redraw last cell

'

pthToRedraw.Add Rectangle(dg.Ge tCellBounds(old Cell.X, oldCell.Y))

End If

rgnToRedraw = New Region(pthToRed raw)

dg.Invalidate(r gnToRedraw)

End If

'

' Flag datagrid for redraw

'

bRedraw = True

oldCell = pt

Else

'

' Only redraw when needed

'

If bRedraw Then

dg.Invalidate(d g.GetCellBounds (oldCell.X, oldCell.Y))

End If

bRedraw = False

oldCell = New Point(-1, -1)

End If

End Sub

Protected Overloads Overrides Sub Paint(ByVal g As
System.Drawing. Graphics,
ByVal bounds As System.Drawing. Rectangle, ByVal source As
System.Windows. Forms.CurrencyM anager, ByVal rowNum As Integer, ByVal
backBrush As System.Drawing. Brush, ByVal foreBrush As
System.Drawing. Brush,
ByVal alignToRight As Boolean)

Static bPainted As Boolean = False

'

' First time we paint get a reference to datagrid

' So we can consume its events

'

If Not bPainted Then

dg = Me.DataGridTabl eStyle.DataGrid

c = -1

For Each grdCol As DataGridColumnS tyle In
Me.DataGridTabl eStyle.GridColu mnStyles

c += 1

If grdCol.MappingN ame = Me.MappingName Then Exit For

Next

End If

bPainted = True

MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush,
alignToRight)

Dim pnHot As New Pen(SystemColor s.HotTrack)

Dim brHot As New SolidBrush(Colo r.FromArgb(128, SystemColors.Ho tTrack))

' see through brush

If MouseOverCell(r owNum) Then

bounds.Inflate(-1, -1)

g.FillRectangle (brHot, bounds)

g.DrawRectangle (pnHot, bounds)

End If

Dim r As New RectangleF(boun ds.X, bounds.Y, bounds.Width, bounds.Height)

rectPaint = r

End Sub

Public ReadOnly Property MouseOverCell(B yVal rownum As Integer) As Boolean

Get

Dim pt As New Point(rownum, c)

Return pt.Equals(oldCe ll)

End Get

End Property

End Class
Link to example
http://www.onteorasoftware.com/Downl...lumnstyles.zip

Ken
-----------------------
"rodchar" <ro*****@discus sions.microsoft .com> wrote in message
news:46******** *************** ***********@mic rosoft.com...
Hey all,

You notice how when you mouse over each thread in this forum how the
highlights, well how can I do this same thing in my win form with my
datagrid?

thanks,
rodchar

yes, this is a windows forms project.

"Cor Ligthert" wrote:

Rodchar,

I am still not sure if you are making programs for the web of for windows
forms, what is it, and when it is webform, I advice you to tell that in your
questions, I think I remember it when you answer it now. However in this
newsgroup is the winform default when not told.

Cor

Rodchar,

Than you would not talk about:
ispostback
codebehind
That is typical webform terminology

In a windowform you have a design form and normalcode.

Ispostback does not exist.

You can real good confuse us.

:-)))

Cor

"rodchar" <ro*****@discus sions.microsoft .com>

yes, this is a windows forms project.

"Cor Ligthert" wrote:

Rodchar,

I am still not sure if you are making programs for the web of for
windows
forms, what is it, and when it is webform, I advice you to tell that in
your
questions, I think I remember it when you answer it now. However in this
newsgroup is the winform default when not told.

Cor

You're right it is a win form project. So am i correct to say put it in the
code behind of the form or in a class by itself?

"Ken Tucker [MVP]" wrote:

Hi,

Sorry assumed this was for a windows form grid

Ken
-------------------------
"rodchar" <ro*****@discus sions.microsoft .com> wrote in message
news:B2******** *************** ***********@mic rosoft.com...
all the code goes behind my Form1 code behind?

"Ken Tucker [MVP]" wrote:

Hi,

You need to make your own columnstyle for that. Here is a column
i
am working on that does that.

Code

Imports System.Drawing

Imports System.Drawing. Drawing2D

Imports System.Windows. Forms

Imports System.Reflecti on

Imports System.Componen tModel

Public Class HotTrackTextBox Column

Inherits DataGridTextBox Column

Dim c As Integer

Dim rectPaint As New RectangleF

Dim fnt As New Font(MyBase.Tex tBox.Font.Name, MyBase.TextBox. Font.Size,
FontStyle.Under line)

Dim WithEvents dg As DataGrid

Dim oldCell As New Point(-1, -1)

Dim isInCell As Boolean = False

Public Sub HandleMouseMove (ByVal sender As Object, ByVal e As
MouseEventArgs) Handles dg.MouseMove

Dim g As Graphics = dg.CreateGraphi cs

Dim bounds As Rectangle

Dim hti As DataGrid.HitTes tInfo = dg.HitTest(New Point(e.X, e.Y))

isInCell = (hti.Row > -1 And hti.Column = c)

Static bRedraw As Boolean = False

If isInCell Then

Dim pt As Point

pt = New Point(hti.Row, hti.Column)

If Not pt.Equals(oldCe ll) Then

'

' Create a region where we want the datagrid to redraw

' So the datagrid doesn't flash.

'

Dim pthToRedraw As New Drawing2D.Graph icsPath

Dim rgnToRedraw As Region

Dim rCell As Rectangle = dg.GetCellBound s(pt.X, pt.Y)

pthToRedraw.Add Rectangle(rCell )

If oldCell.X > -1 Then

'

' Have to redraw last cell

'

pthToRedraw.Add Rectangle(dg.Ge tCellBounds(old Cell.X, oldCell.Y))

End If

rgnToRedraw = New Region(pthToRed raw)

dg.Invalidate(r gnToRedraw)

End If

'

' Flag datagrid for redraw

'

bRedraw = True

oldCell = pt

Else

'

' Only redraw when needed

'

If bRedraw Then

dg.Invalidate(d g.GetCellBounds (oldCell.X, oldCell.Y))

End If

bRedraw = False

oldCell = New Point(-1, -1)

End If

End Sub

Protected Overloads Overrides Sub Paint(ByVal g As
System.Drawing. Graphics,
ByVal bounds As System.Drawing. Rectangle, ByVal source As
System.Windows. Forms.CurrencyM anager, ByVal rowNum As Integer, ByVal
backBrush As System.Drawing. Brush, ByVal foreBrush As
System.Drawing. Brush,
ByVal alignToRight As Boolean)

Static bPainted As Boolean = False

'

' First time we paint get a reference to datagrid

' So we can consume its events

'

If Not bPainted Then

dg = Me.DataGridTabl eStyle.DataGrid

c = -1

For Each grdCol As DataGridColumnS tyle In
Me.DataGridTabl eStyle.GridColu mnStyles

c += 1

If grdCol.MappingN ame = Me.MappingName Then Exit For

Next

End If

bPainted = True

MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush,
alignToRight)

Dim pnHot As New Pen(SystemColor s.HotTrack)

Dim brHot As New SolidBrush(Colo r.FromArgb(128, SystemColors.Ho tTrack))

' see through brush

If MouseOverCell(r owNum) Then

bounds.Inflate(-1, -1)

g.FillRectangle (brHot, bounds)

g.DrawRectangle (pnHot, bounds)

End If

Dim r As New RectangleF(boun ds.X, bounds.Y, bounds.Width, bounds.Height)

rectPaint = r

End Sub

Public ReadOnly Property MouseOverCell(B yVal rownum As Integer) As Boolean

Get

Dim pt As New Point(rownum, c)

Return pt.Equals(oldCe ll)

End Get

End Property

End Class
Link to example
http://www.onteorasoftware.com/Downl...lumnstyles.zip

Ken
-----------------------
"rodchar" <ro*****@discus sions.microsoft .com> wrote in message
news:46******** *************** ***********@mic rosoft.com...
Hey all,

You notice how when you mouse over each thread in this forum how the
highlights, well how can I do this same thing in my win form with my
datagrid?

thanks,
rodchar

Hi,

Class by itself. You did see the link to the example at the end.

Ken
-----------------------
"rodchar" <ro*****@discus sions.microsoft .com> wrote in message
news:D6******** *************** ***********@mic rosoft.com...
You're right it is a win form project. So am i correct to say put it in the
code behind of the form or in a class by itself?

"Ken Tucker [MVP]" wrote:

Hi,

Sorry assumed this was for a windows form grid

Ken
-------------------------
"rodchar" <ro*****@discus sions.microsoft .com> wrote in message
news:B2******** *************** ***********@mic rosoft.com...
all the code goes behind my Form1 code behind?

"Ken Tucker [MVP]" wrote:

Hi,

You need to make your own columnstyle for that. Here is a
column
i
am working on that does that.

Code

Imports System.Drawing

Imports System.Drawing. Drawing2D

Imports System.Windows. Forms

Imports System.Reflecti on

Imports System.Componen tModel

Public Class HotTrackTextBox Column

Inherits DataGridTextBox Column

Dim c As Integer

Dim rectPaint As New RectangleF

Dim fnt As New Font(MyBase.Tex tBox.Font.Name, MyBase.TextBox. Font.Size,
FontStyle.Under line)

Dim WithEvents dg As DataGrid

Dim oldCell As New Point(-1, -1)

Dim isInCell As Boolean = False

Public Sub HandleMouseMove (ByVal sender As Object, ByVal e As
MouseEventArgs) Handles dg.MouseMove

Dim g As Graphics = dg.CreateGraphi cs

Dim bounds As Rectangle

Dim hti As DataGrid.HitTes tInfo = dg.HitTest(New Point(e.X, e.Y))

isInCell = (hti.Row > -1 And hti.Column = c)

Static bRedraw As Boolean = False

If isInCell Then

Dim pt As Point

pt = New Point(hti.Row, hti.Column)

If Not pt.Equals(oldCe ll) Then

'

' Create a region where we want the datagrid to redraw

' So the datagrid doesn't flash.

'

Dim pthToRedraw As New Drawing2D.Graph icsPath

Dim rgnToRedraw As Region

Dim rCell As Rectangle = dg.GetCellBound s(pt.X, pt.Y)

pthToRedraw.Add Rectangle(rCell )

If oldCell.X > -1 Then

'

' Have to redraw last cell

'

pthToRedraw.Add Rectangle(dg.Ge tCellBounds(old Cell.X, oldCell.Y))

End If

rgnToRedraw = New Region(pthToRed raw)

dg.Invalidate(r gnToRedraw)

End If

'

' Flag datagrid for redraw

'

bRedraw = True

oldCell = pt

Else

'

' Only redraw when needed

'

If bRedraw Then

dg.Invalidate(d g.GetCellBounds (oldCell.X, oldCell.Y))

End If

bRedraw = False

oldCell = New Point(-1, -1)

End If

End Sub

Protected Overloads Overrides Sub Paint(ByVal g As
System.Drawing. Graphics,
ByVal bounds As System.Drawing. Rectangle, ByVal source As
System.Windows. Forms.CurrencyM anager, ByVal rowNum As Integer, ByVal
backBrush As System.Drawing. Brush, ByVal foreBrush As
System.Drawing. Brush,
ByVal alignToRight As Boolean)

Static bPainted As Boolean = False

'

' First time we paint get a reference to datagrid

' So we can consume its events

'

If Not bPainted Then

dg = Me.DataGridTabl eStyle.DataGrid

c = -1

For Each grdCol As DataGridColumnS tyle In
Me.DataGridTabl eStyle.GridColu mnStyles

c += 1

If grdCol.MappingN ame = Me.MappingName Then Exit For

Next

End If

bPainted = True

MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush,
alignToRight)

Dim pnHot As New Pen(SystemColor s.HotTrack)

Dim brHot As New SolidBrush(Colo r.FromArgb(128, SystemColors.Ho tTrack))

' see through brush

If MouseOverCell(r owNum) Then

bounds.Inflate(-1, -1)

g.FillRectangle (brHot, bounds)

g.DrawRectangle (pnHot, bounds)

End If

Dim r As New RectangleF(boun ds.X, bounds.Y, bounds.Width, bounds.Height)

rectPaint = r

End Sub

Public ReadOnly Property MouseOverCell(B yVal rownum As Integer) As
Boolean

Get

Dim pt As New Point(rownum, c)

Return pt.Equals(oldCe ll)

End Get

End Property

End Class
Link to example
http://www.onteorasoftware.com/Downl...lumnstyles.zip

Ken
-----------------------
"rodchar" <ro*****@discus sions.microsoft .com> wrote in message
news:46******** *************** ***********@mic rosoft.com...
Hey all,

You notice how when you mouse over each thread in this forum how the
highlights, well how can I do this same thing in my win form with my
datagrid?

thanks,
rodchar