Discussion :

[fanchyWeeking]

Bonjour a tous,
Je rencontre actuellement un problème , j'ai déclarer un DGV en readonly et colonnes que j'ajoute ensuite au DGV

Lorsque je lance mon projet mes colonnes combobox et image apparaissent comme de vulgaire colonnes textbox , j'ai beau tourner dans tous les sens je ne trouve pas d'ou vient le problème.
J'imagine que çà doit être tout bête mais le style des colonnes ne semble pas fonctionner

Voici mon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

Merci par avance de vos réponses

[zitoune92]

Il y a un souci avec tes lignes 18 à 36. Tu les déclares comme des colonnes de type par défaut.

Voici le code qui marche très bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
ReadOnly DGV As New DataGridView With {
            .RowHeadersVisible = False,
            .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize,
            .AllowUserToDeleteRows = False,                           'j'ai retiré ".AllowUserToAddRows = False,"   pour mon exemple
            .AllowUserToOrderColumns = False,
            .AllowUserToResizeColumns = False,
            .BackColor = SystemColors.Control,
            .BackgroundColor = SystemColors.Control,
            .BorderStyle = BorderStyle.None,
            .Visible = True}
 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
Dim DGVColCombo As New DataGridViewComboBoxColumn With {
            .Name = "MNU_USR_2_4_1_2_2_3_COL_QTE_ALL",
            .HeaderText = "Quantite allouee",
            .Width = 250,
            .DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox,
            .DropDownWidth = 1,
            .MaxDropDownItems = 8,
            .FlatStyle = FlatStyle.Flat,
            .DisplayStyleForCurrentCellOnly = True}
DGVColCombo.Items.AddRange("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20")       'mettre des strings au lieu d'entiers
DGV.Columns.Add(DGVColCombo)
DGV.Columns("MNU_USR_2_4_1_2_2_3_COL_QTE_ALL").AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
 
 
DGV.Rows.Add()     ' permet de tester la fonctionalité du combo
 
End Sub