groupe de contrôles

Version imprimable

04/09/2011, 21h23
jihad

groupe de contrôles

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?
05/09/2011, 01h05
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)

voila le code que j'utilise

Code:

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!!!!!!

05/09/2011, 15h21
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:

dim d as datagridview = directcast(sender, datagridview)
05/09/2011, 17h43
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?
05/09/2011, 18h16
Pol63

s'il sont directement sur le form

Code:

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

s'ils sont sur un autre conteneur, il faut remplacer me par le conteneur
05/09/2011, 18h33
jihad

je ne sais pas comment utiliser cette ligne de code
j'ai besoin d'utiliser une boucle du genre:" for each datagridview dans le groupe crée dynamiquement" et cela sera exécuté sans qu'il soit déclenché par un événement.

Code:

1
2
3
for each dgv as datagridview in me.controls.oftype(of datagridview)
  dgv....
next

(nécessite le framewok 3.5)

05/09/2011, 22h46
jihad

ça marche parfaitement :ccool:
merci infiniment