Modifier une couleur via SUB

Version imprimable

Bonjour, bonsoir,

C'est de nouveau moi avec mes questions bêtes et chiantes :oops:

Alors pour simplifier un peut mon bordel de code, j'ai un soucis de type de variable, voici les 2 lignes de code qui vont avec ma sub
Code:

1 2 3 4 5 6 7 8 9 10 11 If TB_IngBD.Text = "" Then '(la TB qui doit changer de couleur , le texte de la MsgBox) VerifEtCouleur("TB_IngBD.BackColor", "Veuillez remplir le Nom de l'ingrédient !") end if Sub VerifEtCouleur(ByVal ControlVar As ??? , ByVal TextVar As String) MsgBox(TextVar, 48, "Erreur") ControlVar = Color.Firebrick End Sub
Dans la sub je ne sais pas du tout quel type donner a ma variable ControlVar j'ai essayer un peut tout les types différents.... Avec plusieurs modification dans l'appel du sub et pas mal d'autre modif mais rien n'y fait pourtant je suis sur que c'est juste un truc tout bête...mais après un bon bout de temps passer dessus et des recherches sur internet infructueusement je suis obligé de demander votre aide... Alors si quelqu'un aurais une solution à mon problème ce serrai super, merci d'avance :)

Ah oui, j'oubliais le principal, l'erreur viens toujours de la ligne que j'ai souligné en me disant que le type color ne peut pas être converti en le type que j’ai choisis. (les ??? sont bien sur pour l'illustration ^^)

27/06/2017, 00h36
Pol63

si tu en doutais, je confirmes que tu as écris n'importe quoi

tu peux passer une instance à une sub (TB_IngBD) par contre c'est à elle de savoir que c'est backcolor qu'il faut changer (ou alors il faudrait lui passer le nom de la propriété si tu veux pouvoir modifier autre chose que backcolor mais ca va complexifier le code)

Code:

ControlVar as control

et

Code:

ControlVar.backcolor = Color.Firebrick

et donc

Code:

VerifEtCouleur(TB_IngBD,"blabla")

"TB_IngBD.BackColor" est un string, à partir de ça ce n'est pas simple de faire quelque chose

Yes super merci! :D j'avais essayer une possibilité qui était très très proche de celle si mais qui n'était pas identique, du coup j'avais toujours encore mon erreur... :aie:

Je remet juste le code tel que je l'avais mis plus haut avec les modifications au cas ou quelqu'un aurait le problème que moi ;) (même si ton explication était très bien et complète Pol63 )
Code:

1 2 3 4 5 6 7 8 9 If TB_IngBD.Text = "" Then VerifEtCouleur(TB_IngBD, "Veuillez remplir le Nom de l'ingrédient !") End If Sub VerifEtCouleur(ByVal ControlVar As Control, ByVal TextVar As String) MsgBox(TextVar, 48, "Erreur") ControlVar.BackColor = Color.Firebrick End Sub

J'ai maintenant un problème avec une de mes boucle, qui m'indique "Une exception non gérée du type 'System.NullReferenceException' s'est produite "

tout le code fonctionne bien sauf la fameuse ligne ci dessous, les 5 TB existe bien sous le nom TB_IngNomVnIng1 à TB_IngNomVnIng5

Code:

Controls("TB_IngNomVnIng" + NBING.ToString).BackColor = Color.White

Auriez vous une idée de où pourrai venir mon problème ? :roll:

et voici le code plus large

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
TB_IngBD.BackColor = Color.White
        CB_REF.BackColor = Color.White
        For NBING As Integer = 1 To 5
            Controls("TB_IngNomVnIng" + NBING.ToString).BackColor = Color.White
        Next
 
        If TB_IngBD.Text = "" Then
            VerifEtCouleur(TB_IngBD, "Veuillez remplir le Nom de l'ingrédient !")
        ElseIf CB_REF.Text = "" Then
            VerifEtCouleur(CB_REF, "Veuillez remplir l'Unité de Référence !")
        ElseIf TB_IngNomVnIng1.Text = "" Then
            VerifEtCouleur(TB_IngNomVnIng1, "Veuillez remplir le nombre l'Unité de Référence !")
        ElseIf TB_IngNomVnIng2.Text = "" Then
            VerifEtCouleur(TB_IngNomVnIng2, "Veuillez remplir le nombre de Calories !")
        ElseIf TB_IngNomVnIng3.Text = "" Then
            VerifEtCouleur(TB_IngNomVnIng3, "Veuillez remplir le nombre de Lipides !")
        ElseIf TB_IngNomVnIng4.Text = "" Then
            VerifEtCouleur(TB_IngNomVnIng4, "Veuillez remplir le nombre de Glucides !")
        ElseIf TB_IngNomVnIng5.Text = "" Then
            VerifEtCouleur(TB_IngNomVnIng5, "Veuillez remplir le nombre de Protéine !")
        Else
            If ExisteSection(EmplacementVARING, TB_IngBD.Text) Then
                MsgBox(TB_IngBD.Text + " existe déja !", 16, "Erreur")
                Exit Sub
            Else
                SetSection(EmplacementVARING, TB_IngBD.Text, "test")
            End If
        End If

27/06/2017, 17h16
Pol63

il faut apprendre à débugger
F9 point d'arret
F10 / F11 avancer d'une ligne (sans ou en rentrant dans les sous membres)
la souris sur une variable affiche le contenu
shift+F9 permet de voir le contenu d'une expression

quand ca plante ca t'amène à la ligne qui plante, et là aussi tu peux tester le code que tu as écris en détail (shift f9, espions, variables locales ...)
27/06/2017, 19h51
Kamikazoide

Même, impossible de trouver ce qui me fait cette fameuse erreur, cette erreur viens quand

"La plupart du temps cela veut dire qu'on utilise un membre d'un Objet alors qu'on n'a pas instancié cet objet.
Il y a bien une Classe, mais pas d'objet instancié à partir de cette Classe, on veut utiliser un membre de la Classe alors qu'on ne peut utiliser un membre que sur une instance."
source: http://plasserre.developpez.com/cour...?page=debogage

Mais selon moi et les testes que j'ai fait tout est correctement initialisé (pourtant l'erreur reste donc il y en a forcément encore une ..), je n'ai donc aucune idée de l'erreur que j'ai faite, je fait donc appel à votre aide :roll:
27/06/2017, 20h21
Pol63

il faut décomposer
la ligne suivante :

Code:

Controls("TB_IngNomVnIng" + NBING.ToString).BackColor = Color.White

il va évaluer color.white, ca existe pas de problème
ensuite il va évaluer "TB_IngNomVnIng" + NBING.ToString, ca fait un string pas de problème non plus
ensuite il évalue Controls("TB_IngNomVnIng" + NBING.ToString)
là il cherche un controle avec ce nom, s'il n'en trouve pas il retourne nothing

en débuggage en part du plus large et on affine
tu aurais fait shift + F9 en ayant séléctionné Controls("TB_IngNomVnIng" + NBING.ToString) il t'aurait dit que ca valait nothing et tu aurais trouvé la source du problème
après tu aurais fais shift + F9 sur "TB_IngNomVnIng" + NBING.ToString (ou juste regarder ce que valait NBING ca suffit dans ce cas simple) pour récupérer le nom que ton code cherche
ensuite tu vas voir sur le form si ce controle existe bien (tu as peut oublié d'en nommé un ...)
27/06/2017, 20h50
Kamikazoide

Controls("TB_IngNomVnIng" + NB.ToString) donne bien :aie: Nothing
"TB_IngNomVnIng" + NB.ToString donne bien "TB_IngNomVnIng1"

l'erreur ce produit quand NB = 1 et aussi quand NB = 2 (j'ai pas fait de test pour NB à plus de 2)

Mais mes 6 TB nommé TB_IngNomVnIng1 jusqu'a TB_IngNomVnIng6 existe bien et sur la même form que mon code.... je ne trouve donc toujours pas l'origine de mon problème :aie:
27/06/2017, 21h04
Pol63

S'ils sont sur un panel ou tout autre container c'est sur ce container qu'il faut chercher et non sur le form
Monpanel.controls(nom)
27/06/2017, 21h23
Kamikazoide
Citation:

Envoyé par Pol63

S'ils sont sur un panel ou tout autre container c'est sur ce container qu'il faut chercher et non sur le form
Monpanel.controls(nom)

Yes effectivement Merci, c'est bien à cause du GroupeBox que j'avais le message d'erreur, la question que je me pose alors est pourquoi quand j'écrit ça :

Code:

CB_REF.BackColor = Color.White"

il trouve directement la CB dans le GroupBox

Alors que quand j'écrit ça:
Code:

1 2 3 For NBING As Integer = 1 To 5 GroupBox5.Controls("TB_IngNomVnIng" + NBING.ToString).BackColor = Color.White Next
Je doit spécifié que ma TB est dans le GroupBox :weird: ?
27/06/2017, 22h04
Pol63

parce que quand tu poses un controle (peu importe sur quoi) ca créé une variable pour ta form

alors que la propriété controls de chaque controle ne contient que les enfants directs
27/06/2017, 22h36
Kamikazoide
Ok merci, j'ai une autre petite question, est ce que c'est possible de modifier la même valeur sur plusieurs contrôle en une même ligne?
Code:

1 2 TB_IngBD.BackColor = Color.White CB_REF.BackColor = Color.White
Donc de transformer mes 2 lignes de code en une seul ( comme pour les variables par exemple) :roll:

Code:

var1, var2, var3, var4, var5 = "un truc"
29/06/2017, 21h48
Pol63

non

si tu as plusieurs trucs toujours les mêmes à plusieurs endroits du code, tu peux les mettre dans un list(of ) et faire un for each
29/06/2017, 22h42
Kamikazoide

Citation:

Envoyé par Pol63

non

si tu as plusieurs trucs toujours les mêmes à plusieurs endroits du code, tu peux les mettre dans un list(of ) et faire un for each

Ok merci :zoubi: