VS2013 - Panel BackColor

**guilld** · 03/05/2018, 09h54

Bonjour,

j'ai créé une FORM contenant 12 panels.
je tente de modifier dynamiquement la couleur d'un PANEL suivant une valeur issue d'une requête SQL. Si mon SQL me retourne 1, je dois coloriser le panel "P1", si ma requette me retourne 2, 4, 7, je dois coloriser mes panel 2, 4 et 7, etc..
Dans mon exemple, la table de mon Dataset [DS.table] contient 2 valeurs suite à ma requête SQL :
Valeurs : 1 et 7
Donc je devrait voir les panel P1 et P7 devenir tout "Firebrick"

Puis je crée ma variable P as Panel pour ensuite lui associer la première valeur de mon DS :

Code :

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

Dim mJOUR_PERSO_ID As String = DS.Tables(0).Rows(i).Item("JOUR_PERSO_ID").ToString

Enfin, je vérifie ma viariable "P" afin de savoir si elle est null ou non.
Avec la boucle, la premiere fois mon P devrait être = à "P1" puis à "P7"

Donc je modifie mon backcolor

Code :

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

 P.BackColor = Color.Firebrick

Malheuresement, je dois louper quelque chose puisque ma variable P reste toujours "NOTHING"

Auriez vous une idée ? D'ou vient mon erreur ? Ma méthode est elle bonne ? Une autre idée pour faire cela ?

MERCI

Voici le code en entier :

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
 
For i As Integer = 0 To DS.Tables(0).Rows.Count - 1
                Dim mJOUR_PERSO_ID As String = DS.Tables(0).Rows(i).Item("JOUR_PERSO_ID").ToString
 
                'Panel dynamique
                Dim P As Panel
                P = CType(Me.Controls("P" & mJOUR_PERSO_ID), Panel)
 
                'Recherche si Panel existe
                Dim myControl1 As Control = P
                If Not myControl1 Is Nothing Then
                    P.BackColor = Color.Firebrick
                End If
 
            Next (i)

**ZenZiTone** · 03/05/2018, 10h57

Est-tu sûr que '"P" & mJOUR_PERSO_ID' retourne bien "P1" et "P7"? il n'y a pas des espaces ou autres en plus? Si oui, est-ce que tu les retrouves bien dans Me.Controls (ajoute un espion pour vérifier s'ils apparaissent dans la liste des contrôles)

**guilld** · 03/05/2018, 11h08

Tu as bien ciblé le problème, '"P" & mJOUR_PERSO_ID' ne me retourne pas "P1" ou "P7" !!

Par contre "mJour_Perso_ID" a bien la valeur 1 puis 7 quand j'éxécute en mode pas à pas.. (voir pièce jointe)
Et je ne vois pas pourquoi ma variable "P" ne prend pas le "CType(Me.Controls("P" & mJOUR_PERSO_ID), Panel)"

**guilld** · 03/05/2018, 11h13

l'espion..

**ZenZiTone** · 03/05/2018, 11h58

Envoyé par guilld

Et je ne vois pas pourquoi ma variable "P" ne prend pas le "CType(Me.Controls("P" & mJOUR_PERSO_ID), Panel)"

Essaye sans le cast, en faisant juste :

Code :

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

Dim P = Me.Controls("P" & mJOUR_PERSO_ID.Trim()) 'Trim() permet de supprimer les espaces en début et fin de chaine.

Ensuite, si P <> Nothing, regarde s'il s'agit bien d'un Panel.

**guilld** · 03/05/2018, 12h08

Le résultat est identique

!
Depuis mon espion :
P Nothing System.Windows.Forms.Panel

**ZenZiTone** · 03/05/2018, 13h59

Hum tu executes cette action à quelle moment? Car si tu n'as pas explicitement indiqué le type de Me.Controls("P" & mJOUR_PERSO_ID.Trim()) et qu'il dit que c'est un Panel alors il l'a bien trouvé mais que tu exécutes ton code avant le InitializeComponents de ta form

**guilld** · 03/05/2018, 16h29

c'est le second appel de fonction depuis mon LOAD.
Avant cela, j'execute une requete SQL pour remplir un datagriview.

Donc je dirai que tout est dans le bon ordre.
Quant au "InitializeComponents " je ne l'utilise pas puisque que mes PANELs ont été créés par designer et non pas code.
Je pense que je n'ai pas à avoir à l'initialiser.

**ZenZiTone** · 03/05/2018, 16h53

Envoyé par guilld

Quant au "InitializeComponents " je ne l'utilise pas puisque que mes PANELs ont été créés par designer et non pas code.
Je pense que je n'ai pas à avoir à l'initialiser.

Non effectivement. Pour info, le InitializeComponent apparaît automatiquement lorsque l'on définit le constructeur sur le fichier de code du formulaire. Ainsi, si tu avais fait ce traitement dans le constructeur avant le InitializeComponent, ça aurait été normal que le contrôle soit null.

Du coup tu confirmes que, suite à cette ligne là : Dim P = Me.Controls("P" & mJOUR_PERSO_ID.Trim()), P est Nothing? Je dis bien suite, il faut que l'instruction soit passée pour que P soit affecté.

**guilld** · 03/05/2018, 17h06

Je viens de trouver une solution.. mais je ne comprends pas pourquoi ca marche..

il faut que je dise que mes 12 Panel sont eux même un autre Panel.
Du coup si je sors mes 12 panel de celui qui les contient alors ca fonctionne.
Si je remets les 12 panels dans le grand Panel alors ca fonctionne plus..

je pense donc que le fait que les 12 soient contenu dans un autre fait que cela ne fonctionne pas..

**ZenZiTone** · 03/05/2018, 18h00

Envoyé par guilld

je pense donc que le fait que les 12 soient contenu dans un autre fait que cela ne fonctionne pas..

Ah, il fallait le préciser plus tôt !

Quand tu fais "Me.Controls" depuis ton formulaire, tu recherches les contrôles enfants de ton formulaire. Ceux-ci peuvent très bien être conteneurs d'autres contrôles. C'est un peu le même principe que la relation parent/enfant dans la vrais vie :

Tu es le fils de ton père qui lui est le fils de son père. Cela ne veut pas pour autant dire que tu est le fils du père de ton père. Ou alors il y a un problème