Datagridview - change border instead of color for selected row?

[PPettit]

Is there a relatively easy way to change how a datagridview formats a row when it's selected. To be more precise, I want to put a heavy border around the selected row and leave the SelectionBackColor at it's current setting instead of the default blue color.

I'm open to other methods for making the selected row stand out as long as it doesn't change the cell color. Changing the font size/style/color/etc. is also not desired.

 

[PPettit]

In case anyone has the same problem, I found a solution to my problem here:

http://www.windowsdevelop.com/windo...the-border-of-a-full-selected-row-24263.shtml

I converted the relevant part to VB and it works like I wanted.

    Private Sub HandleRowPrePaint(ByVal sender As Object, ByVal e As DataGridViewRowPrePaintEventArgs) Handles dgvJobList.RowPrePaint
        Dim state As DataGridViewElementStates = e.State And DataGridViewElementStates.Selected
        If state = DataGridViewElementStates.Selected Then
            e.PaintParts = e.PaintParts And Not (DataGridViewPaintParts.Focus Or DataGridViewPaintParts.SelectionBackground)
        End If
    End Sub

    Private Sub HandleRowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles dgvJobList.RowPostPaint
        Const intBorderWidth As Integer = 2
        Dim rowRect As Rectangle
        Dim state As DataGridViewElementStates
        state = e.State And DataGridViewElementStates.Selected
        If state = DataGridViewElementStates.Selected Then
            Dim iBorder As Integer = Convert.ToInt32(intBorderWidth)
            Dim columnsWidth As Integer = dgvJobList.Columns.GetColumnsWidth(DataGridViewElementStates.Visible)
            Dim intRectStart As Integer = dgvJobList.RowHeadersWidth - 40
            rowRect = New Rectangle(intRectStart, e.RowBounds.Top + iBorder - 1, columnsWidth - dgvJobList.HorizontalScrollingOffset + 1, e.RowBounds.Height - iBorder)
            Using Pen As Pen = New Pen(Color.Red, intBorderWidth)
                e.Graphics.DrawRectangle(Pen, rowRect)
            End Using
        End If
    End Sub