Friday, July 20, 2018

DataGridView Formatting

   Private Sub FormatDataGridView(ByVal dgvName As DataGridView)
        With dgvName
            If .RowCount < 1 Then Exit Sub
            .Font = New Font("Arial", 9, FontStyle.Regular)
            .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns("C1").DisplayIndex = 0
            .Columns("C2").DisplayIndex = 1
            .Columns("C3").DisplayIndex = 2
            .Columns("C4").DisplayIndex = 3
            .Columns("C5").DisplayIndex = 4

            .Columns("C1").Width = 115
            .Columns("C2").Width = 150
            .Columns("C3").Width = 65
            .Columns("C4").Width = 90
            .Columns("C5").Width = 90

            .Columns("C1").HeaderText = "H1"
            .Columns("C2").HeaderText = "H2"
            .Columns("C3").HeaderText = "H3"
            .Columns("C4").HeaderText = "H4"
            .Columns("C5").HeaderText = "H5"

            .Columns("C1").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            .Columns("C2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            .Columns("C3").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            .Columns("C4").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            .Columns("C5").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            .Columns("C5").DefaultCellStyle.Format = "#,###,##0.00"

            .Rows(0).DefaultCellStyle.Format = "#,###,##0.00"
            .Rows(1).DefaultCellStyle.Format = "#,###,##0.00"
            .Rows(2).DefaultCellStyle.Format = "#,###,##0.00"
            .Rows(3).DefaultCellStyle.Format = "#,###,##0.00"
            .Rows(4).DefaultCellStyle.Format = "#,###,##0.0000"

            .Columns("C6").Visible = False
            .Columns("C7").Visible = False
        End With
    End Sub

No comments:

Post a Comment