1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Col As DataGridViewComboBoxColumn
'...
Col = New DataGridViewComboBoxColumn
Col.HeaderText = "Titre column"
Col.Items.Add("data1")
Col.Items.Add("data2")
Col.Items.Add("data3")
Col.Items.Add("data4")
Col.Items.Add("data5")
Col.AutoSizeMode = DataGridViewAutoSizeColumnMode.None
Col.Width = 80
DataGridView.Rows.Clear()
DataGridView.ColumnCount = 5
DataGridView.Columns.Add(Col)
DataGridView.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
DataGridView.Columns(0).HeaderText = "Title1"
DataGridView.Columns(1).HeaderText = "Title2"
DataGridView.Columns(2).HeaderText = "Title3"
DataGridView.Columns(3).HeaderText = "Title4"
DataGridView.Columns(4).HeaderText = "Title5"
DataGridView.Columns(0).Visible = False
'...
End Sub |
Partager