Discussion :

[dragondumond]

Bonjour,

Pour des questions d'ergonomie, je souhaite créer une datagridview avec 8 colonnes sans la créer de manière graphique car je trouve que c'est assez long a paramètres toutes les colonnes, etc... alors que je suis sensé devoir en créer plein de datagridview, je voudrai savoir comment en créer une avec des lignes d'instruction (pour gagner énormément de temps en faisans ensuite juste des copier coller et changer le nom de ma datagridview) dans le programme de mon Form avec le nombre de colonnes que je souhaite, leurs nom, les couleurs etc...

Merci d'avance.

PS: je suis en Visual studio Pro 2010 et j'ai essayer le code suivant mais c'est plein d'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'création de la grille
 
Private WithEvents MyDataGridView As New DataGridView
 
Me.Controls.Add(MyDataGridView)
 
 
 
'On met 5 colonnes
 
MyDataGridView.ColumnCount = 5

[Sankasssss]

... sans la créer de manière graphique car je trouve que c'est assez long a paramètres toutes les colonnes, etc...

Rien ne vous empêche de mettre le dataGridView sur la form en mode graphique et de régler les colonnes via programmation par le nom du dataGridView, c'est pour moi le plus facile.

Code :

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

1
2
3
4
With MonDataGridView
    .DataSource = MaView
    '...
End With

[dragondumond]

J'ai crée une datagridview de manière graphique, ensuite j'ai rajouté le nombre de colonnes, le nom des colonnes etc.... avec des lignes d'instruction :

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
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tm_gestion.Start() 'Démarrage du timer
        'Créer 8 colonnes
        DataGridView1.ColumnCount = 8
 
        With (DataGridView1)
 
 
            .RowHeadersVisible = False 'Supprime la premiere colonnes
 
            'On donne le nom des colonnes
 
            .Columns(0).Name = "Akc"
            .Columns(0).AutoSizeMode = Windows.Forms.DataGridViewAutoSizeColumnMode.None
            .Columns(0).Width = 50
 
            .Columns(1).Name = "Time In"
 
            .Columns(2).Name = "Unit"
 
            .Columns(3).Name = "Module/param"
 
            .Columns(4).Name = "Description"
            .Columns(4).AutoSizeMode = Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
 
            .Columns(5).Name = "Alarm"
 
            .Columns(6).Name = "Message"
            .Columns(6).AutoSizeMode = Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
 
            .Columns(7).Name = "Priority"
 
        End With
    End Sub

Lorsque j'essaye de remplire mon tableau avec des lignes, sa me crée des lignes en illimité non stop avec rien a l'interieur sauf dans la premier colonne il y a "System.String[]", voila mon code :

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
Private Sub tm_gestion_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tm_gestion.Tick
 
        If S >= Alarm1.Seuil  Then
            Dim row0 As Object
            'Réglage de l'aquitement
            Alarm1.Ack = "non acquitée"
            'Réglage de la date d'apparition de l'alarme
 
            Alarm1.TimeIn = Date.Now
 
 
            Alarm1.NiveauAlarm = "Defaut"
            Alarm1.Priority = 1
 
            row0 = {Alarm1.Ack, Alarm1.TimeIn, Alarm1.Unit, Alarm1.ModuleParam, Alarm1.Description, Alarm1.NiveauAlarm, Alarm1.Message, Alarm1.Priority}
            DataGridView1.Rows.Add(row0)
        End If
 
        If S >= Alarm2.Seuil  Then
            Dim row1 As Object
            'Réglage de l'aquitement
            Alarm2.Ack = "non acquitée"
            'Réglage de la date d'apparition de l'alarme
 
            Alarm2.TimeIn = Date.Now
 
            Alarm2.NiveauAlarm = "Defaut"
            Alarm2.Priority = 2
 
            row1 = {Alarm2.Ack, Alarm2.TimeIn, Alarm2.Unit, Alarm2.ModuleParam, Alarm2.Description, Alarm2.NiveauAlarm, Alarm2.Message, Alarm2.Priority}
            DataGridView1.Rows.Add(row1)
        End If
 
    End Sub

Je rappel que je suis entrain de réaliser un gestionnaire d'alarme et qu'a chaque fois qu'il y a une alarme qui s'active en fonction d'un certain seuil, je dois l'affiché dans un tableau avec toute les données nécessaire.

PS: Je voudrai bien a long terme aussi pouvoir choisir la couleur de ma ligne en fonction du niveau de propriété et que ma première colonne soit un CheckBox qui permet d'acquittée une alarme une fois qu'on décoche la CheckBox, j'ai essayé mais sa me donnée des erreur affreuse alors je voudrai bien déjà commencer par pouvoir écrire un truc quand je le décide dans mon tableau avant de passer à l'étape supérieur.

Merci d'avance pour vos solution.

[dragondumond]

J'ai réussi a résoudre le problème des lignes en illimité en ajoutant une seconde condition dans ma boucle If:

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
If S >= Alarm1.Seuil And Alarm1.Etat = False Then
            Dim row0 As Object
            'Réglage de l'aquitement
            Alarm1.Ack = "non acquitée"
            'Réglage de la date d'apparition de l'alarme
 
            Alarm1.TimeIn = Date.Now
 
 
            Alarm1.NiveauAlarm = "Defaut"
            Alarm1.Priority = 1
 
            row0 = {Alarm1.Ack, Alarm1.TimeIn, Alarm1.Unit, Alarm1.ModuleParam, Alarm1.Description, Alarm1.NiveauAlarm, Alarm1.Message, Alarm1.Priority}
            DataGridView1.Rows.Add(row0)
            Alarm1.Etat = True
        End If

Cette seconde condition est fausse au début, donc on entre dans la boucle, ensuite, elle deviens vrai donc on reviens plus dans la boucle.

Par contre j'ai tjs "System.String[]" dans le premier élément de ma ligne lors de la création de la ligne.

[dragondumond]

C'est bon, je trouve la solutions moi même, j'ai impression de faire un monologue lol, le problème est due au Type de la viable rows0 que j'ai crée, je l'ai supprimer et j'ai directement ajouté les éléments que je souhaite mettre dans ma ligne entre les parenthésé du Add :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If S >= Alarm1.Seuil And Alarm1.Etat = False Then
            'Réglage de l'aquitement
            Alarm1.Ack = "non acquitée"
            'Réglage de la date d'apparition de l'alarme
 
            Alarm1.TimeIn = Date.Now
 
 
            Alarm1.NiveauAlarm = "Defaut"
            Alarm1.Priority = 1
            'row0 = {Alarm1.Ack, Alarm1.TimeIn, Alarm1.Unit, Alarm1.ModuleParam, Alarm1.Description, Alarm1.NiveauAlarm, Alarm1.Message, Alarm1.Priority}
            DataGridView1.Rows.Add({"tutu", "tutu", "tutu", "tutu", "tutu", "tutu", "tutu", "tutu"})
            Alarm1.Etat = True
        End If

Et j'obtient une belle ligne de "tutu"

Sinon j'ai tjs envie de savoir comment modifier la couleur d'un ligne on fonction du niveau de priorité, comment trié mes lignes en fonction du niveau de priorité de chaque ligne et de la date. Et pour finir, rajouté un checkbox a la premier colonne qui permet d'acquittée une alarme.

Merci d'avance pour vos solution.

[Graffito]

j'ai tjs envie de savoir comment modifier la couleur d'un ligne on fonction du niveau de priorité

Gérer l'event CellFormating de la DataGridView.

[Sankasssss]

Bonsoir,

content que vous ayez trouvé des solutions par vous même

Concernant le dataGridView, sur MSDN y'a une bonne petite section le concernant : Vue d'ensemble du contrôle DataGridView (Windows Forms)

Via cette section on a accès à une sous section qui vous intéressera : Personnalisation du contrôle DataGridView Windows Forms ainsi que Mises en forme et styles de base dans le contrôle DataGridView Windows Forms

Vous pouvez aussi regarder au niveau des évènements du DataGridView en faisant un rapide tour, un évènement saute tout de suite au yeux, c'est CellFormatting (qu'on retrouvait aussi dans les références de Mises en forme et styles de base dans le contrôle DataGridView Windows Forms)

vous pouvez personnaliser la mise en forme en gérant l'événement CellFormatting. Cet événement vous permet d'indiquer la valeur d'affichage exacte, ainsi que les styles de cellule, tels que les couleurs d'arrière-plan et de premier plan, à utiliser pour l'affichage des cellules. Cela signifie que vous pouvez gérer cet événement pour tout type de mise en forme de cellule, que la valeur de la cellule elle-même ait besoin ou non d'une mise en forme.

Toujours sur les mêmes pages à gauche dans les liens un rapide coup d'oeil et je vois : Tri des données dans le contrôle DataGridView Windows Forms

Sur la vue d'ensemble on voyait aussi : Types de colonnes dans le contrôle DataGridView Windows Forms où on retrouve DataGridViewCheckBoxColumn

Voilà, en quelque minute msdn donne toutes les réponses.

J'espère que vous trouverez votre bonheur dedans, si vous avez un problème sur la mise en plus d'une d'elle n'hésitez pas.

Bon code

[Graffito]

Avant d'aller plus avant, il faut se demander si on a pas intéret à mettre les données dans une DataTable que l'on liera au DataGridView en créant un BindingSource qui fait le lien entre DataTable et DataGridView. Avec l'attribut AutoGenerateColumns, les colonnes du DataGridView se construisent automatiquement en fonction des colonnes du DataTable : ainsi une colonne booléene donnera une DataGridViewCheckBoxColumn.

Les principaux avantages sont de pouvoir contrôler aisément tri et filtrage des colonnes via les propriétés Sort et Filter du BindingSource.

[dragondumond]

Merci beaucoup pour vos réponse, je vais prendre le temps de regarder tous cela !!

[Sankasssss]

J'appuie fortement le conseil de Graffito

[dragondumond]

Salut Graffito,

J'ai réussi a crée mes colonnes de maniéré individuelle, ensuite avec mon timer, a chaque temps d'horloge, je rajoute si besoin une ligne en fonction de si j'ai une alarme qui s'active ou pas, jusqu'ici tous va bien, J'ai aussi réussi a faire clignoté les lignes que je fais apparaitre dans mon tableau mais j'ai un petit souci.

Je souhaite pouvoir annuler le clignotement de la ligne lorsque j'active ma checkbox mais j'arrive pas a déterminer si ma checkbox est activer ou pas. J'ai vu dans l'un de tes message qui date de 2009 qu'il faut réaliser un CellValidating mais ta pas donné bcp de détaille et je suis débutant en VB.

Voila ma boucle If qui gère le clignotement d'une ligne et la désactivation du clignotement mais j'arrive pas a arrêter le clignotement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If Alarm1.Etat = True And Alarm1.Ack = False Then
            If Alarm1.Ack = False And DataGridView1.Rows(0).DefaultCellStyle.BackColor = Drawing.Color.White Then
                DataGridView1.Rows(0).DefaultCellStyle.BackColor = Drawing.Color.Yellow
                tm_gestion.Interval = 500
            ElseIf Alarm1.Ack = False And DataGridView1.Rows(0).DefaultCellStyle.BackColor = Drawing.Color.Yellow Then
                DataGridView1.Rows(0).DefaultCellStyle.BackColor = Drawing.Color.White
                tm_gestion.Interval = 500
            ElseIf Alarm1.Ack = False And DataGridView1.Rows(0).Cells(0).Value = True Then
                Alarm1.Ack = True
            End If
        ElseIf Alarm1.Etat = True And Alarm1.Ack = True Then
            DataGridView1.Rows(0).DefaultCellStyle.BackColor = Drawing.Color.Yellow
        End If

Merci d'avance pour vos solution !

[Graffito]

je ne comprends pas pourquoi le test ne porte que sur la première ligne de la DataGridview :

Code :

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

1
2
 
... DataGridView1.Rows(0) ...

[dragondumond]

C'est juste un teste avec une ligne pour voir si sa marche, mon vrai programme, j'ai remplacer le 0 par un i dans une boucle for mais a coté, je fais des petits teste pour comprendre !! en fait je me suis rendu compte que le programme marche tres bien mais quand je coche ou décoche la cases, il se passe rien car la valeur logique de la case coché ne change pas sauf quand je coche une case dans une autre ligne alors il prend en compte mon ancienne validation comme s'il y avais un probleme de latence ou d'evenement !!

[Graffito]

Au lieu de :

Code :

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

DataGridView1.Rows(0).Cells(0).Value

utilise

Code :

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

DataGridView1.Rows(0).Cells(0).EditedFormattedValue

Je pense que ça devrait marcher.

[dragondumond]

Merci bcp, j'essaye sa se matin !!

[dragondumond]

Sa marche super bien mais pas au début, lorsque j'ajoute ma ligne et il prend pas en compte de son état logique, pour lui, elle n'est pas défini alors que mon checkbox n'est pas sélectionné.

Ensuite lorsque je coche ma checkbox, il prend bien en compte de l'état de la checkbox quel soit activer ou pas !!

[dragondumond]

A la création de ma ligne, j'impose la valeur de mon checkbox, true ou false mais dans le fond, sa valeur logique reste indeterminate tant que l'utilisateur na pas touché à la checkbox.

Je rappel que mon tableau est dynamique et que c'est pas l'utilisateur qui rajoute ou supprime les lignes, tous dépend des capteurs d'un usine !!

[Graffito]

On peut tester si EditedFormatedValue est null et faire la même chose qu'avec false (ou true?).

[dragondumond]

J'ai pensé à la même chose, genre mettre un Ou logique dans ma condition de ma boucle If, dans un cas, je vérifie si EditedFormatedValue est false ou True et dans l'autre cas je vérifie si EditedFormatedValue est null, dans ce cas, si je le trouve null alors je pense en compte qu'il est False etant donnée de la valeur par défaut lors de la création de ma ligne est que les checkbox est à l'état false.

Par contre moment définir l'état null, genre je fais :

Code :

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

1
2
If DataGridView1.Rows(z).Cells(0).EditedFormattedValue = vbNull Then "blablabla"
End If

[dragondumond]

L'état Null n'existe pas et vbNull me plante tous alors je l'ai retiré !!