passer une textbox en parametre d'une procedure sub

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:

---

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:

---

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

Citation:

---

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:

---

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:

---

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

---

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:

---

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 :cry:

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

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.