Форматирование ячеек в элементе управления DataGridView

@gikch · Регистрация: 05.12.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте, подскажите, как правильно использовать форматирование ячеек, которые формируются при помощи программного кода и без запроса из СУБД. Или каким образом можно создать форматированную ячейку или столбец. Мне необходимо понять, каким образом можно использовать следующий код

VB.NET

    Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        Dim DataGridViewCellStyle As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle
        DataGridViewCellStyle.Format = "+7 (999) 000-00-00"
        My.Forms.Application.DataGridView1.Columns(1).DefaultCellStyle = DataGridViewCellStyle
    End Sub

При подпитке использовать данного кода не чего не изменяется в таблице. Ввод данных происходить при помощи следующего кода.

VB.NET

1
2
3

 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        My.Forms.Application.DataGridView1.CurrentRow.Cells(1).Value = My.Forms.Application.TextBox1.Text
    End Sub

@Kulma · 08.02.2019, 07:30

У DataGridView есть события CellFormatting - наступает при прорисовки ячейки ,там можно "отшаблонить" данные.
Шаблон , если память не изменяет, задаётся тегом # , а не цифрами
В вашем случае что-то типа такого ## (###)###-##-##
Правильность написанного мной шаблона лучше перепроверить
Вообще по datagridView неплохое описание здесь и

@gikch · 08.02.2019, 17:23 **[ТС]**

Вот, что у меня получается, как видно из кода сама таблица работает, а форматирование ячеек нет, это большой вопрос, почему как происходить пока не ясно. Подскажите, кто разбирается в форматировании ячеек.

VB.NET

Public Sub Personal_Information_Manager()
        My.Forms.Application.DataGridView2.Columns.Add(0, "№")
        My.Forms.Application.DataGridView2.Columns.Add(1, "Фаминия, Имя, Отчество")
        My.Forms.Application.DataGridView2.Columns.Add(2, "Мобильный телефон")
 
        My.Forms.Application.DataGridView2.Rows.Add("1", "", "")
        My.Forms.Application.DataGridView2.Rows.Add("2", "", "")
        My.Forms.Application.DataGridView2.Rows.Add("3", "", "")
        My.Forms.Application.DataGridView2.Rows.Add("4", "", "")
        My.Forms.Application.DataGridView2.Rows.Add("5", "", "")
        My.Forms.Application.DataGridView2.Rows.Add("6", "", "")
        My.Forms.Application.DataGridView2.Rows.Add("7", "", "")
        My.Forms.Application.DataGridView2.Rows.Add("8", "", "")
 
        My.Forms.Application.DataGridView2.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        My.Forms.Application.DataGridView2.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        My.Forms.Application.DataGridView2.Columns(0).SortMode = DataGridViewColumnSortMode.NotSortable
        My.Forms.Application.DataGridView2.Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnsMode.AllCells
 
        My.Forms.Application.DataGridView2.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        My.Forms.Application.DataGridView2.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
        My.Forms.Application.DataGridView2.Columns(1).SortMode = DataGridViewColumnSortMode.NotSortable
        My.Forms.Application.DataGridView2.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnsMode.AllCells
 
        My.Forms.Application.DataGridView2.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        My.Forms.Application.DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        My.Forms.Application.DataGridView2.Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable
        My.Forms.Application.DataGridView2.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnsMode.AllCells
                                    
    End Sub

VB.NET

    Private Sub DataGridView2_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView2.CellFormatting
        Dim DataGridViewCellStyle As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle
        DataGridViewCellStyle.Format = "## (###)###-##-##"
        My.Forms.Application.DataGridView2.Columns(2).DefaultCellStyle = DataGridViewCellStyle
    End Sub

@MrCrown · 08.02.2019, 18:07

gikch, попробуйте так

VB.NET

1
2
3

Private Sub DataGridView2_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView2.CellFormatting
        e.CellStyle.Format = "## (###)###-##-##"
    End Sub

@gikch · 08.02.2019, 18:30 **[ТС]**

Начение ячейки изменяется, но без форматирования. Почему-то форматирование не срабатывает.

@andrsh · 08.02.2019, 18:42

gikch, Не проще ли сразу номера телефонов вводить через MaskedTextBox?. Сделай шаблон какой тебе надо и все.

@gikch · 08.02.2019, 19:02 **[ТС]**

У меня какая возможность есть в моей программе, но на днях узнал про форматирование ячеек и решил разобраться с этой темой. Если какая есть возможность надо ее изучить и пользоваться научиться.

@ovva · 08.02.2019, 20:25

Можно так

VB.NET

DataGridView1.Columns.Add("cID", "ID")
DataGridView1.Columns.Add("cTel", "Tel")
DataGridView1.Columns(1).DefaultCellStyle.Format = "(000) 000-0000"
'…
Private Sub TextBox1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles TextBox1.PreviewKeyDown
    If e.KeyCode = Keys.Enter Then
        If TextBox1.Text.Length = 10 Then
            Dim ii As Long = CInt(TextBox1.Text)
            DataGridView1.CurrentRow.Cells(1).Value = ii 
        Else
            DataGridView1.CurrentRow.Cells(1).Value = TextBox1.Text
        End If
    End If
End Sub

*После ввода всех цифр нажимаете клавишу Enter.
Еще вариант добиться поставленной цели это использование не TextBox а MaskedTextBox.

VB.NET

MaskedTextBox1.Mask = "(000) 000-0000"
'…
Private Sub MaskedTextBox1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles MaskedTextBox1.PreviewKeyDown
    If e.KeyCode = Keys.Enter Then DataGridView1.CurrentRow.Cells(1).Value = MaskedTextBox1.Text
End Sub

Также здесь можно предусмотреть обработку ошибок ввода данных при обработке события MaskedTextBox1.Validating (+ErrorProvider).
Можно использовать и TextBox, например

VB.NET

Private Sub TextBox1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles TextBox1.PreviewKeyDown
    If e.KeyCode = Keys.Enter Then
        Dim s As String = TextBox1.Text
        If s.Length = 10 Then
            Dim ii As Long = CInt(s)
            DataGridView1.CurrentRow.Cells(1).Value = ii.ToString("(000) 000-0000")
        Else
            DataGridView1.CurrentRow.Cells(1).Value = s
        End If
    End If
End Sub

@Kulma 1153 / 917 / 153 Регистрация: 25.07.2015 Сообщений: 2,068
	08.02.2019, 07:30	2
	У DataGridView есть события CellFormatting - наступает при прорисовки ячейки ,там можно "отшаблонить" данные. Шаблон , если память не изменяет, задаётся тегом # , а не цифрами В вашем случае что-то типа такого ## (###)###-##-## Правильность написанного мной шаблона лучше перепроверить Вообще по datagridView неплохое описание здесь и 1

@gikch 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 52
	08.02.2019, 18:30 [ТС]	5
	Начение ячейки изменяется, но без форматирования. Почему-то форматирование не срабатывает. 0

@andrsh 259 / 212 / 52 Регистрация: 01.08.2016 Сообщений: 823
	08.02.2019, 18:42	6
	gikch, Не проще ли сразу номера телефонов вводить через MaskedTextBox?. Сделай шаблон какой тебе надо и все. 0

@gikch 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 52
	08.02.2019, 19:02 [ТС]	7
	У меня какая возможность есть в моей программе, но на днях узнал про форматирование ячеек и решил разобраться с этой темой. Если какая есть возможность надо ее изучить и пользоваться научиться. 0

	08.02.2019, 20:25

Опции темы