Discussion :

[gilles_906]

Bonjour

Dans l'appli que je fais j'aimerais pouvoir changer la couleur de l'arriere plan des textbox qui sont null, vide ou égal a zero en mettant un nombre de points en fonction du champ afin de definir sa largeur.

Pour ce faire j'ai fais ce code, mais sachant que j'ai pas mal de ligne je voudrais a chaque fois passer en argument de la procedure le nom de la textbox, mais voila dans la procedure la textbox est déclaré en tant que textbox et c'est un string que je lui envoie => forcement ca plante.

j'appelle la procedure avec ca:

Code :

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

1
2
3
4
5
6
7
8
 
If MonClient("DateNaissGerant") IsNot DBNull.Value Then 
 
TxDateNaissanceGerant.Text = CDate(MonClient("DateNaissGerant")).ToString("dd  MMMM yyyy") 
 
Else 
 
MetenRouge(TxDateNaissanceGerant, 10)

C'est le textbox TxDateNaissanceGerant qui n'ai pas bien formater.
Et voila la procedure dans lequel il est sensé etre envoyer en temp que textbox et non string.

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
 
Sub MetenRouge(ByRef NomChamp As TextBox, ByVal NbPoints As Byte)
 
        'met en rouge le champ en argument s'il est vide avec le nombre de . défini en argument
 
        If NomChamp.Text = "" Or NomChamp.Text = "  " Or NomChamp.Text = "0,00 m²" Or NomChamp.Text = "0,00 Euros" Or NomChamp.Text = "0" Then
 
            For i = 0 To NbPoints
                NomChamp.Text = NomChamp.Text & "."
            Next
 
            NomChamp.BackColor = Color.Red
        Else
            NomChamp.BackColor = Color.White
        End If
End Sub

Merci d'avance

[hugoclo]

Et voila la procedure dans lequel il est sensé etre envoyer en temp que textbox et non string

Pour moi ton argument arrive bien en tant que textbox, par contre
pour cette parti du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
If NomChamp.Text = "" Or NomChamp.Text = "  " Or NomChamp.Text = "0,00 m²" Or NomChamp.Text = "0,00 Euros" Or NomChamp.Text = "0" Then
 
            For i = 0 To NbPoints
                NomChamp.Text = NomChamp.Text & "."
            Next
 
            NomChamp.BackColor = Color.Red
        Else
            NomChamp.BackColor = Color.White
        End If

j'aurai plutot mis ca

Code :

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

1
2
3
4
5
6
7
8
9
If NomChamp.Text = "" Or NomChamp.Text = "  " Or NomChamp.Text = "0,00 m²" Or NomChamp.Text = "0,00 Euros" Or NomChamp.Text = "0" Then
 
            For i = 0 To NbPoints
                NomChamp.Text = NomChamp.Text & "."
            NomChamp.BackColor = Color.Red
              Next
        Else
            NomChamp.BackColor = Color.White
        End If

[gilles_906]

Merci de m'avoir repondu, j'attendais une reponse avec impatience n'arrivant toujours pas a trouver pourquoi cela ne marche pas.

En ce qui concerne ta modif, en mettant le changement de couleur du fond a rouge dans la boucle cela n'apporte (a mon avis de débutant) rien, sauf ralentir le programme.
La boucle met le nombre de point demandé (en fonction de la place qu'il faudra laisser sur le document word) et ensuite je change la couleur du fond en rouge.

Toi, tu me propose de mettre la couleur du fond en rouge a chaque rajout de point supplémentaire, je ne comprend pas pourquoi.


Pour mon probleme:

Ce n'est pas l'objet textbox qui est envoyé a la procédure mais son contenu, en l'occurrence rien ou null, ou une date si l'utilisateurrempli le textbox par la suite.

Soit VB.NET n'accepte pas de passer en arguments les objets, soit il me manque quelque chose dans l'instruction

Code :

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

1
2
 
MetenRouge(TxDateNaissanceGerant, 10)

j'ai meme essayé d'envoyer le nom du textbox en string puis de le convertir avec CType en textbox => ca marche pas

Je suis bien embêté car je comptais bien, passer aussi cette procédure sur l'événement perte focus (cas ou on rajoute des données).

Si toi ou quelqu'un d'autre a une idée, je suis preneur de toutes informations .
Merci d'avance

[gilles_906]

Finalement après presque deux jours d'acharnement sur cette ligne je viens de me rendre compte tu avais raison hugoclo

la textbox passe bien en argument l'erreur était un peu plus haut dans le code, j'avais oublié le mot TypeOf au debut d'une boucle faisant afficher le textbox en question.