Discussion :

[Tommy57]

Bonsoir,

J'ai une appli qui fait appel à 25 boutons.
Lorsque je clique sur l'un des boutons, son BorderColor doit devenir rouge et celui des 24 autres noir. De tel sorte à n'avoir toujours qu'un seul bouton rouge et les autres noir.

J'utilise pour cela la fonction suivante

Protected Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, _
Button8.Click, Button9.Click, Button10.Click, Button11.Click, Button12.Click, Button13.Click, Button14.Click, _
Button15.Click, Button16.Click, Button17.Click, Button18.Click, Button19.Click, Button20.Click, Button21.Click, _
Button22.Click, Button23.Click, Button24.Click, Button25.Click

Dim i As Integer, Nbre_Bouton = 25
Dim Bouton As New Button()
Dim Nr_Bouton As Button = DirectCast(sender, Button)
For i = 1 To Nbre_Bouton
Bouton.ID = "Button" & i
Bouton.BorderColor = Drawing.Color.BlueViolet
Next
Nr_Bouton.BorderColor = Drawing.Color.Red

End Sub

Grâce a "sender" (et a Sperot51 qui m'en a expliqué le fonctionnement) je sais quel bouton doit devenir rouge et donc je voulais utiliser la boucle if pour "noircir" les autres

Pour passer en revu tous les boutons à noircir, j'ai instancié un nouveau bouton dont je change l'ID avec la boucle IF.

Mais voilà, même si en mode déboggage je vois bien l'ID de Bouton prendre tour à tour celle de mes 25 boutons, le cadre ne change pas de couleur.

Vous l'aurez compris, ma question est : Pourquoi?

Y a t'il plus simple ou plus "programmation correct" pour le faire?



Merci d'avance pour vos lumières
Tommy

[Pol63]

la programmation objet, ca ne s'invente pas, je te propose de lire le cours suivant
http://plasserre.developpez.com/vsommair.htm

tu mélanges pas mal de choses et ton code ne peut pas fonctionner ainsi


pour résoudre ton problème qui est simple, il faut avoir une collection contenant tes 25 boutons, faire un for each de cette collection pour modifier la couleur
et en suite modifier la couleur du bouton cliqué

si tu ne comprends pas ce que je viens de dire, qui prend 5 lignes de code, je t'invite à nouveau à lire le cours qu'à écrit Mr Lasserre

[Tommy57]

Effectivement, ça ne s'invente pas et c'est pour cette raison que je fais appel à des personnes bien plus compétente.

Cela me permet d'obtenir des infos que l'on ne trouve ou ne comprend pas forcement dans les cours!

Merci donc pour tes conseils qui jusqu'ici m'ont été très utiles. J'ai pu mettre en application les collections dans mon exemple. Et là ou l'échange avec une personne compétente comme toi devient riche c'est par exemple maintenant :

La collection m'a permis de travailler sur un ensemble d'objets du même type. Mais il faut ajouter tous ces objets à cette collection, soit un à un

col.Add(TextBox1)
col.Add(TextBox2)
col.Add(TextBox3)
...

Là ou je bloque, c'est de pouvoir automatiser dans le sens ou, soit il existe une procédure permettant de rechercher les objets dans une page, soit de la créer à l'aide d'une ou plusieurs méthodes.

Comment ferais-tu pour rajouter 125 TextBox à une collection pour pouvoir y travailler plus aisément?

Encore merci pour ton aide Sperot51, qu'elle soit sous forme de ligne de code ou d'aide à la recherche de tuto et autres... Car lorsqu'on débute, avec la tête sous l'eau, on ne trouve pas forcément les bonnes infos au bon moment

Bonne soirée,
Thierry.

[Pol63]

y a deja tout ce qu'il faut dans le framework
c'est une des phrases qu'il faut se dire qu'on est sur le point d'écrire plus de 3 lignes pour faire un truc

ta form est en fait un controle comme les autres, tous les controles héritent de la classe control (button, panel et même form donc comme je viens de dire)
un control peut avoir plusieurs control sur lui (une form t'as mis des boutons et autre dessus)
un panel peut aussi un contenir, mais il meme possible de mettre un bouton sur un bouton

bref tout ca pour dire que les controles qui sont sur un controle sont dans la propriétés controls de ce control
jusque là tout est sous controle (blague)

donc ce que je disais c'est que d'avoir une collection pour retrouver tes textbox c'est pratique, que tu la créé toi même ou que tu utilises celle existante :

Code :

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

1
2
3
4
5
6
for each ctrl as control in me.controls
  if typeof ctrl is textbox then
    dim b as button ' pas new
    b = directcast(ctrl, textbox)
  end if
next

ceci pourrait surement t'aider, mais s'il y a des textbox que tu ne veux pas, il faudrait par exemple les poser sur un panel et donc tu ferais in monpanel.controls pour les

[Tommy57]

bref tout ca pour dire que les controles qui sont sur un controle sont dans la propriétés controls de ce control
jusque là tout est sous controle (blague)

Donc c'est comme les poupées russes, tous s'enboite et grâce à ce fonctionnement de poupées russes, on peut retrouver facilement les objets. Ca devient plus claire effectivement.

Allez, on passe au cas pratique et je vais m'efforcer de mettre cela en oeuvre

Merci beaucoup Sperot51