Bonjour,
Tout d'abord je travaille sur visual basic express 20008, et je dois créer une application dans le cadre de mon stage.
Mon problème est le suivant:
J'ai créé une datagrid (datagriview2) en mode design. Dans mon code ci-dessous j'ajoute une colonne avec comboxbox (newcolumn) contenant 3 item (avantage, neutre, risque).
Ce que j'essaye de faire depuis une semaine, c'est d'ajouter une autre colonne (avec combobox) lorsque je clique par exemple sur l'item "avantage", ouvrir une colonne combobox différente en fonction de chaque item du combobox de la 1ere colonne.
Alors j'ai essayé de dire:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
i = NewColumn.Items.Add("Avantage")
et de dire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
If (NewColumn.Selected = i) Then
            DataGridView2.Columns.Add(NewColumn1) 
            ColAdd = True
     end if
mais sans succès.

Code vb : 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
 
Private ColAdd As Boolean = False
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles MyBase.Load
 
        Dim NewColumn As New DataGridViewComboBoxColumn() 
        Dim NewColumn1 As New DataGridViewComboBoxColumn()
        Dim NewColumn2 As New DataGridViewComboBoxColumn()
        Dim NewColumn3 As New DataGridViewComboBoxColumn()
 
        Dim i As Integer
 
 
        With NewColumn 
            .DataPropertyName = "NewColumn" 
            .HeaderText = "Classement" 
            .DropDownWidth = 160 
            .Width = 90 
            .MaxDropDownItems = 5 
            .FlatStyle = FlatStyle.Flat 
            i = NewColumn.Items.Add("Avantage") 
            NewColumn.Items.Add("Risque")
            NewColumn.Items.Add("Neutre")
        End With
 
 
        DataGridView2.Columns.Add(NewColumn) 
        ColAdd = True
 
       If (NewColumn.Selected = i) Then
            DataGridView2.Columns.Add(NewColumn1) 
            ColAdd = True
        End If
 
    End Sub

Merci beaucoup de votre aide.