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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| ReadOnly MNU_CSB_2_4_1_2_2_DATAGRIDVIEW As New DataGridView With {
.RowHeadersVisible = False,
.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize,
.AllowUserToAddRows = False,
.AllowUserToDeleteRows = False,
.AllowUserToOrderColumns = False,
.AllowUserToResizeColumns = False,
.BackColor = SystemColors.Control,
.BackgroundColor = SystemColors.Control,
.BorderStyle = BorderStyle.None,
.EnableHeadersVisualStyles = False,
.Visible = True}
ReadOnly MNU_CSB_2_4_1_2_2_1_COL_UID_CSB_INV As New DataGridViewTextBoxColumn
ReadOnly MNU_CSB_2_4_1_2_2_2_COL_DSG_CSB_INV As New DataGridViewTextBoxColumn
ReadOnly MNU_CSB_2_4_1_2_2_3_COL_QTE_ALL_CSB_INV As New DataGridViewTextBoxColumn
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns.Add("MNU_USR_2_4_1_2_2_1_COL_ID_CSB", "ID du consommable")
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_1_COL_ID_CSB").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_1_COL_ID_CSB").Width = 250
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns.Add("MNU_USR_2_4_1_2_2_2_COL_DSG_CSB", "Designation du consommable")
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_2_COL_DSG_CSB").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_2_COL_DSG_CSB").Width = 250
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns.Add("MNU_USR_2_4_1_2_2_3_COL_QTE_ALL", "Quantite allouee")
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_3_COL_QTE_ALL").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_3_COL_QTE_ALL").Width = 75
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns.Add("MNU_USR_2_4_1_2_2_1_COL_ID_CSB", "ID du consommable")
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_1_COL_ID_CSB").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_1_COL_ID_CSB").Width = 250
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns.Add("MNU_USR_2_4_1_2_2_2_COL_DSG_CSB", "Designation du consommable")
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_2_COL_DSG_CSB").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_2_COL_DSG_CSB").Width = 250
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns.Add("MNU_USR_2_4_1_2_2_3_COL_QTE_ALL", "Quantite allouee")
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_3_COL_QTE_ALL").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_USR_2_4_1_2_2_3_COL_QTE_ALL").Width = 75
Dim MNU_CSB_2_4_1_2_2_4_COL_QTE_INV_PRS_GRD_VSAV As New DataGridViewComboBoxColumn With {
.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox,
.DropDownWidth = 1,
.MaxDropDownItems = 8,
.FlatStyle = FlatStyle.Flat,
.DisplayStyleForCurrentCellOnly = False}
MNU_CSB_2_4_1_2_2_4_COL_QTE_INV_PRS_GRD_VSAV.Items.AddRange(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns.Add("MNU_CSB_2_4_1_2_2_4_COL_QTE_INV_PRS_GRD_VSAV", MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Tag.ToString)
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_CSB_2_4_1_2_2_4_COL_QTE_INV_PRS_GRD_VSAV").AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
Dim MNU_CSB_2_4_1_2_2_5_COL_ETT_INV_PRS_GRD_VSAV As New DataGridViewImageColumn
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns.Add("MNU_CSB_2_4_1_2_2_5_COL_ETT_INV_PRS_GRD_VSAV", "Etat")
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_CSB_2_4_1_2_2_5_COL_ETT_INV_PRS_GRD_VSAV").Width = 25
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Size = New System.Drawing.Point(580 + MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.RowHeadersWidth +
MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Columns("MNU_CSB_2_4_1_2_2_4_COL_QTE_INV_PRS_GRD_VSAV").Width, (MNU_CSB_2_4_1_2_2_DATAGRIDVIEW.Rows(0).Height * 18) + 14) |
Partager