Discussion :

[jihad]

bonsoir,

je crée un ensemble de datagridview dynamiquement et j'associe à chaque datagridview un evenement cellclick
malheureusement, cet evenement ne fonctionne que pour la dernière datagridview crée.
comment résoudre ce problème?
comment parcourir toute les cellules de toutes les datagridview créées?

[Pol63]

addhandler dgv.cellclick, addressof une_sub

à faire sur tous les dgv que tu créés
sur la sub appelée, sender contiendra le dgv qui déclenche l'évènement (à caster via directcast)

[jihad]

voila le code que j'utilise

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
Public Class Form1
    Dim dtg As DataGridView
 
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
While MyDataReader.Read()
 
If condi1 then
 
dtg = New DataGridView
dtg.Name = "dtg" & i
AddHandler dtg.CellClick, AddressOf AffichEtoile
‘ definir la taille et la position du datagridview
 
Else
dtg = New DataGridView
dtg.Name = "dtg" & i
AddHandler dtg.CellClick, AddressOf AffichEtoile
‘ definir la taille et la position du datagridview
 
Endif
End sub
 
 
Private Sub AffichEtoile(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
        Dim i, j As Integer
 
        i = dtg.CurrentCellAddress.Y
        j = dtg.CurrentCellAddress.X
 
 
        Select Case j
 
            ' si une cellule de la colonne 4 est cliquée
            Case 3
                If IsDBNull(dtg(dtg.CurrentCellAddress.X, dtg.CurrentCellAddress.Y)) Or _
                  dtg(dtg.CurrentCellAddress.X, dtg.CurrentCellAddress.Y).Value = "" Then
                    '--- Ok on inscrit une valeur
                    dtg(e.ColumnIndex, e.RowIndex).Value = "X"
                    dtg(4, i).Value = ""
                    dtg(5, i).Value = ""
 
 
                Else
                    dtg(e.ColumnIndex, e.RowIndex).Value = ""
                End If
 
            Case 4 ……………..
 
end sub

le problème est toujours le même affichEtoile ne fonctionne que pour le dernier datagridview crée!!!!!!

[Pol63]

dans AffichEtoile tu manipules dtg
dtg comme toutes les variables ne peut contenir qu'un seul datagridview, et donc le dernier que tu as mis dedans
tous les datagridview appellent bien AffichEtoile et c'est dans cette sub que tu dois traiter le bon

Code :

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

dim d as datagridview = directcast(sender, datagridview)

[jihad]

merci, ça marche parfaitement.
dans une autre procédure, j'ai besoin de parcourir toute les datagridview créées. je sais pas comment faire cela?

[Pol63]

s'il sont directement sur le form

Code :

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

directcast(me.controls("dtg1"),datagridview)

s'ils sont sur un autre conteneur, il faut remplacer me par le conteneur