[RESOLVED] DGV formatting

[gwboolean]

I have a planner with a dgv listing a set of tasks. Everything is a task, but some tasks are designated as meetings based on a bit column named colMeeting. If this column is true, then the task is a meeting/appointment. The bottom 4 tasks meet that criteria and are displayed at the bottom of the list. There is also a query that would display only meeting tasks.

The DGV has general settings that set the forecolor for all of the displayed rows to Black.

#Region "Color Settings"
        BackColor = Color.SteelBlue
        tlsList.BackColor = Color.LightSteelBlue
        tlsList.ForeColor = Color.Black
        dgvList.ColumnHeadersDefaultCellStyle.BackColor = Color.LightSteelBlue
        dgvList.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
        dgvList.RowsDefaultCellStyle.BackColor = Color.LightSteelBlue
        dgvList.BackgroundColor = Color.SteelBlue
        dgvList.DefaultCellStyle.BackColor = Color.LightSteelBlue
        dgvList.DefaultCellStyle.ForeColor = Color.Black
#End Region

What I would like to do is make the meetings/appointments display to be a different forecolor.

I have attempted a couple of ideas, and failed. I really have no idea at all how one could approach this or even if it is possible.

So my question is can one have specific rows in a DGV with different format settings than other rows in a DGV and how would one go about doing that?

[jdc2000]

Possibly useful links, in case you have not already seen them:

https://1bestcsharp.blogspot.com/201...row-color.html

https://www.aspsnippets.com/Articles...and-VBNet.aspx

https://www.codeproject.com/Question...usdatagridview

https://stackoverflow.com/questions/...f-a-cell-value

[gwboolean]

Thanks.

I am currently looking at your 3rd suggestion (the title fits). Right now my head is spinning looking at the code, but I might be able to figure it out in a day or two. I will let you know how it goes, as soon as it goes.

[dbasnett]

I must be missing something.... A form with a DGV and a button

Public Class Form1

    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        DataGridView1.DataSource = GetTable()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        DataGridView1.DataSource = GetTable()
        For Each rw As DataGridViewRow In DataGridView1.Rows
            If rw.IsNewRow Then Exit Sub
            If DirectCast(rw.Cells(0).Value, Integer) = 100 Then
                If DirectCast(rw.Cells(2).Value, String) = "11" Then
                    rw.DefaultCellStyle.ForeColor = Color.Red
                    rw.DefaultCellStyle.BackColor = Color.LightBlue
                    rw.Cells(1).Style.BackColor = Color.Yellow
                End If
            End If
        Next
    End Sub

    Private Function GetTable() As DataTable
        Dim table As New DataTable

        table.Columns.Add("Col1", GetType(Integer))
        table.Columns.Add("Col2", GetType(String))
        table.Columns.Add("Col3", GetType(String))

        ' Add five rows with those columns filled in the DataTable.
        table.Rows.Add(25, "Col1 A", "10")
        table.Rows.Add(50, "Col1 B", "50")
        table.Rows.Add(10, "Col1 C", "51")
        table.Rows.Add(21, "Col1 D", "52")
        table.Rows.Add(100, "Col1 E", "11")
        table.Rows.Add(100, "Col1 F", "12")
        table.Rows.Add(100, "Col1 G", "11")
        table.Rows.Add(100, "Col1 H", "12")
        Return table
    End Function
End Class

[gwboolean]

I must be missing someing...

I don't believe you are. I do have a button that is used to select which sort query I want to run. Additionally, one of the "DueDate" query is automatically ran when the form is opened.

I have been displaying my DGV formats as a single block of code (see below) that instead of looping, applies the formats to the entire DGV. I think that it is going to take a looping method of applying the formats row by row.

What you see below is the only way I have ever displayed a DGV and I do not believe that can be made to work with what I want to do. At any rate, I am looking at replacing what I have with a loop that will display the rows and their individual formats. That is what I am trying to figure out how to do at this moment. I think that what you are suggesting would fit a loop approach, instead of applying the formats to the entire DGV.

Am I understanding things correctly?

    Private Sub SetState()
#Region "Color Settings"
        BackColor = Color.SteelBlue
        tlsList.BackColor = Color.LightSteelBlue
        tlsList.ForeColor = Color.Black
        dgvList.ColumnHeadersDefaultCellStyle.BackColor = Color.LightSteelBlue
        dgvList.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
        dgvList.RowsDefaultCellStyle.BackColor = Color.LightSteelBlue
        dgvList.BackgroundColor = Color.SteelBlue
        dgvList.DefaultCellStyle.BackColor = Color.LightSteelBlue
        dgvList.DefaultCellStyle.ForeColor = Color.Black
#End Region
#Region "Default settings"
        Text = ("Task List").ToString
#End Region
#Region "DGV Settings"
        dgvList.Enabled = True
        dgvList.EnableHeadersVisualStyles = False
        dgvList.AllowUserToAddRows = False
        dgvList.AllowUserToDeleteRows = False
        dgvList.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        dgvList.ColumnHeadersVisible = True
        dgvList.RowHeadersVisible = False
        dgvList.Columns(0).Visible = True
        dgvList.Columns(0).Width = 200
        dgvList.Columns(0).HeaderText = "Task"
        dgvList.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
        dgvList.Columns(1).Visible = False
        dgvList.Columns(2).Visible = True
        dgvList.Columns(2).Width = 120
        dgvList.Columns(2).HeaderText = "Start Date"
        dgvList.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        dgvList.Columns(3).Visible = True
        dgvList.Columns(3).Width = 120
        dgvList.Columns(3).HeaderText = "Due Date"
        dgvList.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        dgvList.Columns(4).Visible = False
        dgvList.Columns(5).Visible = True
        dgvList.Columns(5).Width = 90
        dgvList.Columns(5).HeaderText = "Percent Complete"
        dgvList.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        dgvList.Columns(6).Visible = False
        dgvList.Columns(7).Visible = False
        dgvList.CurrentCell = Nothing
#End Region
    End Sub

[.paul.]

If you try to set styles for the whole grid, the same style with be used for every cell.
You can set styles for a row, or a column, or an individual cell.
Remember to do them in that order…

The grid
A row (or column)
An individual cell

[gwboolean]

If you try to set styles for the whole grid, the same style with be used for every cell.

Yep. That's why I am working on a loop version of my SetState() method. I can tell you now it ain't easy. At least for me.

So this is what I have at the moment. I have run numerous times and even though it runs through the if statement and executes it correctly (everything goes through the appropriate branch), I still get no red forecolor for those cells that met the requirements of the if statement.

I am not sure why the 4 rows that met the criteria did not display Forecolor = color.DarkRed. Still trying to figure that out.

    Private Sub DisplayDGV()
#Region "Color Settings"
        BackColor = Color.SteelBlue
        tlsList.BackColor = Color.LightSteelBlue
        tlsList.ForeColor = Color.Black
        dgvList.ColumnHeadersDefaultCellStyle.BackColor = Color.LightSteelBlue
        dgvList.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
        dgvList.RowsDefaultCellStyle.BackColor = Color.LightSteelBlue
        dgvList.BackgroundColor = Color.SteelBlue
        dgvList.DefaultCellStyle.BackColor = Color.LightSteelBlue
        'dgvList.DefaultCellStyle.ForeColor = Color.Black
#End Region
#Region "Default settings"
        dgvList.Enabled = True
        dgvList.EnableHeadersVisualStyles = False
        dgvList.RowHeadersVisible = False
        dgvList.AllowUserToAddRows = False
        dgvList.AllowUserToDeleteRows = False
        dgvList.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        Text = ("Task List").ToString
#End Region
        For i = 0 To RecordCount - 1
            dgvList.Columns(0).Visible = True
            dgvList.Columns(0).Width = 200
            dgvList.Columns(0).HeaderText = "Task"
            dgvList.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            If dgvList.Rows(i).Cells(7).Value = True Then
                dgvList.Rows(i).DefaultCellStyle.ForeColor = Color.DarkRed
            Else
                dgvList.Rows(i).DefaultCellStyle.ForeColor = Color.Black
            End If
            dgvList.Columns(1).Visible = False
            dgvList.Columns(2).Visible = True
            dgvList.Columns(2).Width = 120
            dgvList.Columns(2).HeaderText = "Start Date"
            dgvList.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            dgvList.Columns(3).Visible = True
            dgvList.Columns(3).Width = 120
            dgvList.Columns(3).HeaderText = "Due Date"
            dgvList.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            dgvList.Columns(4).Visible = False
            dgvList.Columns(5).Width = 90
            dgvList.Columns(5).HeaderText = "Percent Complete"
            dgvList.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            dgvList.Columns(6).Visible = False
            dgvList.Columns(7).Visible = False
        Next
        dgvList.CurrentCell = Nothing
    End Sub

[.paul.]

For individual rows or cells, instead of...

dgvList.Rows(i).DefaultCellStyle.ForeColor = Color.DarkRed

Try using...

dgvList.Rows(i).Style.ForeColor = Color.DarkRed

[techgnome]

Correct... in fact, you shouldn't be setting ANY of the Default style settings ... but rather that row's Style... Including the Alignment.


-tg

[gwboolean]

Instead of...

I tried that and it errored. It will not accept, .Style. Is there, perhaps some tool that I need to load to make that work? I can understand that one would want to not use the defaults.

[.paul.]

Here’s the MSDN documentation

https://learn.microsoft.com/en-us/do...orkdesktop-4.8

[gwboolean]

Here’s the MSDN documentation

I read the document and much of it was over my head. However, what I understood lead me to what you see below. Maybe I understood it, maybe not.

Anyway, there is no response in the DGV when this code is executed.

            If dgvList.Rows(i).Cells(7).Value = True Then
                dgvList.Rows(i).Cells(1).Style.ForeColor = Color.DarkRed
            Else
                dgvList.Rows(i).Cells(1).Style.ForeColor = Color.Black
            End If

I really thought I had it that time.

[.paul.]

If CBool(dgvList.Rows(i).Cells(7).Value) = True Then

[jdc2000]

More links to check out"

https://www.vbforums.com/showthread....n-datagridview

https://social.msdn.microsoft.com/Fo...msdatacontrols

https://bytes.com/topic/visual-basic...or-single-cell

[gwboolean]

I followed up on the suggested reading list and there was one, from 2012 that resolved the exact same issue. Having said that, I had know idea what the code did, where it would go, or when one would call it.

The other thing I got out of it was that what I am experiencing, although not common, has been experienced by some number of others. It also appears to me that there is likely to be nothing wrong with my code, which would indicate to me that there might be something in the project, or some settings or property that could be causing this.

Assuming that my code is correct, never a good assumption since my eyes are so bad I can never be sure what I am actually reading (the eyes will soon be fixed, yea!), what other things might I look at that might cause this?

[gwboolean]

I have finally made this work. I changed nothing, except changed the forecolor for a row, instead of a cell, as you can see below. The REM'd lines were some of the other attempts I made that did not work.

I have no explanation as to why this is works and the others do not, but the fact is that I would rather have the whole row instead of just the cell anyway. Win/win.

            If CBool(dgvList.Rows(i).Cells(7).Value) = True Then
                'dgvList.Rows(i).Cells(1).Style.ForeColor = Color.DarkRed
                dgvList.Rows(i).DefaultCellStyle.ForeColor = Color.DarkRed
                'dgvList(1, i).Style.ForeColor = Color.DarkRed
            Else
                'dgvList(1, i).Style.ForeColor = Color.Black
                dgvList.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                'dgvList.Rows(i).Cells(1).Style.ForeColor = Color.Black
            End If

[.paul.]

It's probably just the order of operations you're using there...

If CBool(dgvList.Rows(i).Cells(7).Value) = True Then
    'dgvList.Rows(i).Cells(1).Style.ForeColor = Color.DarkRed
     dgvList.Rows(i).DefaultCellStyle.ForeColor = Color.DarkRed
    'dgvList(1, i).Style.ForeColor = Color.DarkRed
Else
    'dgvList(1, i).Style.ForeColor = Color.Black
     dgvList.Rows(i).DefaultCellStyle.ForeColor = Color.Black
    'dgvList.Rows(i).Cells(1).Style.ForeColor = Color.Black
End If

Try this...

If CBool(dgvList.Rows(i).Cells(7).Value) = True Then
    dgvList.Rows(i).DefaultCellStyle.ForeColor = Color.Black
    dgvList.Rows(i).Cells(1).Style.ForeColor = Color.DarkRed
Else
    dgvList.Rows(i).DefaultCellStyle.ForeColor = Color.Black
End If