Программно создать Datagridview

@adb420 · Регистрация: 09.10.2013

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

Всем доброго дня. Подскажите, как программно создать DataGridView на форме.
С размерами в количество строк и столбцов.
То есть в переменную CountRows - я задаю количество строк -4
В переменную CountColumns - количество столбцов - 7
Причем учесть свойство -

VB.NET

1	.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

Что бы получилось примерно так как на скринште.

@adb420 · 13.02.2020, 11:39 **[ТС]**

Причем при добовление столбцов и строк по кнопкам - Datagridview растягивалась, вниз и вправо

@Orlangur · 13.02.2020, 12:00

adb420,

VB.NET

 Dim DGV As New DataGridView With {
             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells,
             .AllowUserToAddRows = False,
             .RowHeadersVisible = False,
             .Location = New Point(50, 50),
             .Name = "DGV1"}
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim CountRows As Integer = 4
        Dim CountColumns As Integer = 7
 
        For i = 1 To CountColumns
            DGV.Columns.Add("Column" & i, "Column" & i)
        Next
        For i = 1 To CountRows
            DGV.Rows.Add()
        Next
        Me.Controls.Add(DGV)
        DGV.Size = New Drawing.Size(DGV.Columns.Count * DGV.Columns(0).Width + 20, (DGV.Rows.Count * DGV.Rows(0).Height) + DGV.ColumnHeadersHeight)
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        DGV.Rows.Add()
        DGV.Size = New Drawing.Size(DGV.Columns.Count * DGV.Columns(0).Width + 20, (DGV.Rows.Count * DGV.Rows(0).Height) + DGV.ColumnHeadersHeight)
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        DGV.Columns.Add("Column" & DGV.Columns.Count + 1, "Column" & DGV.Columns.Count + 1)
        DGV.Size = New Drawing.Size(DGV.Columns.Count * DGV.Columns(0).Width + 20, (DGV.Rows.Count * DGV.Rows(0).Height) + DGV.ColumnHeadersHeight)
    End Sub

@adb420 · 13.02.2020, 12:19 **[ТС]**

Orlangur1991, единственное, что если убрать

VB.NET

1	ScrollBars = ScrollBars.None,

то остается пустое место:

@Orlangur · 13.02.2020, 12:26

adb420, убрать +20 в каждом изменении размера dgv

@adb420 · 13.02.2020, 14:28 **[ТС]**

Orlangur1991, а подскажите пожалуйста. Например у меня будет жестко 7 столбцов.
Будут добавляться только строки (Соответственно DGV будет расти только вниз.
Подскажите, пожалуйста.
Как мне задать имена столбцов, не Column1, 2,3?
А допустим ФИО, Адрес, Телефон??

@Orlangur · 13.02.2020, 14:31

adb420, вместо этого цикла

VB.NET

1
2
3

 For i = 1 To CountColumns
            DGV.Columns.Add("Column" & i, "Column" & i)
        Next

добавить необходимые столбцы

@adb420 · 13.02.2020, 15:02 **[ТС]**

Orlangur1991, так и сделал, но почему то после последнего столбца получается пустота, как было, когда убрал скролл

@Orlangur · 13.02.2020, 16:16

adb420, из-за autosize'а ширина столбцов может разниться в зависимости от его содержимого или текста в заголовке, а следовательно метод, где количество столбцов умножается на ширину первого столбца неверен, необходимо перед заданием размера пройтись по всем столбцам и сложить их ширину

@adb420 · 13.02.2020, 16:24 **[ТС]**

Orlangur1991, подскажите пожалуйста, как сделать кодом?

@andrsh · 13.02.2020, 17:43

подгонка ширины дгв по ширине колонн:

VB.NET

 Dim wth As Integer
        For Each cl As DataGridViewColumn In DataGridView1.Columns
            wth += cl.Width
        Next
        DataGridView1.Width = wth + 44
    End Sub

Добавлено через 2 минуты
Даную процедуру нужно вызывать при любом добавлении текста в дгв, добавлении колоон и т.д

Добавлено через 6 минут
Вернее даже так:

VB.NET

Sub Colwidt() ' вызвать при добавлении или удалении колонны в дгв
        Dim wth As Integer
        For Each cl As DataGridViewColumn In DataGridView1.Columns
            wth += cl.Width
        Next
        DataGridView1.Width = wth + 44
    End Sub
 
    Private Sub DataGridView1_ColumnWidthChanged(sender As Object, e As DataGridViewColumnEventArgs) Handles DataGridView1.ColumnWidthChanged
        ' изменение ширины дгв в зависимости от изменения ширины одной из колонн
        Colwidt()
    End Sub

Добавлено через 50 минут
adb420, Если у тебя нет столбца заголовок строк то

VB.NET

1	DataGridView1.Width = wth + 4

@adb420 8 / 8 / 1 Регистрация: 09.10.2013 Сообщений: 613
	13.02.2020, 11:39 [ТС]	2
	Причем при добовление столбцов и строк по кнопкам - Datagridview растягивалась, вниз и вправо 0

@Orlangur Лень — мое второе и 3222 / 2411 / 686 Регистрация: 28.11.2014 Сообщений: 3,599 Записей в блоге: 3
	13.02.2020, 12:26	5
	adb420, убрать +20 в каждом изменении размера dgv 0

@adb420 8 / 8 / 1 Регистрация: 09.10.2013 Сообщений: 613
	13.02.2020, 14:28 [ТС]	6
	Orlangur1991, а подскажите пожалуйста. Например у меня будет жестко 7 столбцов. Будут добавляться только строки (Соответственно DGV будет расти только вниз. Подскажите, пожалуйста. Как мне задать имена столбцов, не Column1, 2,3? А допустим ФИО, Адрес, Телефон?? 0

@adb420 8 / 8 / 1 Регистрация: 09.10.2013 Сообщений: 613
	13.02.2020, 15:02 [ТС]	8
	Orlangur1991, так и сделал, но почему то после последнего столбца получается пустота, как было, когда убрал скролл 0

@Orlangur Лень — мое второе и 3222 / 2411 / 686 Регистрация: 28.11.2014 Сообщений: 3,599 Записей в блоге: 3
	13.02.2020, 16:16	9
	adb420, из-за autosize'а ширина столбцов может разниться в зависимости от его содержимого или текста в заголовке, а следовательно метод, где количество столбцов умножается на ширину первого столбца неверен, необходимо перед заданием размера пройтись по всем столбцам и сложить их ширину 0

@adb420 8 / 8 / 1 Регистрация: 09.10.2013 Сообщений: 613
	13.02.2020, 16:24 [ТС]	10
	Orlangur1991, подскажите пожалуйста, как сделать кодом? 0

	13.02.2020, 17:43

Программно создать Datagridview

Решение