Создание столбца в DataGrid и добавление данных - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Всем привет! Как в DataGrid создать 4 столбца и циклом добавить в них: в первом столбце - чекбокс во втором столбце - число в третьем столбце - картинка в четвертом столбце - текст Буду очень благодарен за пример.

Решение задачи: «Создание столбца в DataGrid и добавление данных»

textual
Листинг программы
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim dgv As New DataGridView
        dgv.Location = New Point(3, 3)
        dgv.Size = New Size(500, 200)
 
 
        Dim col1 As New DataGridViewCheckBoxColumn()
        col1.HeaderText = "Column1"
 
        Dim col2 As New DataGridViewTextBoxColumn()
        col2.HeaderText = "Column2"
        col2.ValueType = GetType(Integer) ' при вводе отличных от цифр знаков DGV может вызвать ошибку
 
 
        Dim col3 As New DataGridViewImageColumn()
        col3.HeaderText = "Column3"
        col3.ImageLayout = DataGridViewImageCellLayout.Normal
 
 
        Dim col4 As New DataGridViewTextBoxColumn()
        col4.HeaderText = "Column4"
 
        dgv.Columns.AddRange(col1, col2, col3, col4)
 
        '<- для теста
        Dim flag As Boolean = False
        Dim img As New Bitmap(10, 10)
        Dim g As Graphics = Graphics.FromImage(img)
        g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        g.FillEllipse(Brushes.Yellow, 0, 0, 10, 10)
        g.Dispose()
        '->
 
        For i As Integer = 0 To 9
            flag = Not flag
            dgv.Rows.Add(flag, i, img.Clone(), "String " & i.ToString())
        Next
 
        Me.Controls.Add(dgv)
 
    End Sub

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы