Создание столбца в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д