[VB.NET] Associer une action a bcp d'objets ....

[VB.NET] Voila le probleme.... :?

J'ai dans ma forme environ 40 txtbox qui lance une fonction avec juste un parametre (le numero de la textbox) :lol:

Code:

---

1 2 3 4 5 6 7 8

Private Sub hist0_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hist0.TextChanged calcul_hist_change(0) End Sub   Private Sub hist1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hist1.TextChanged calcul_hist_change(1) End Sub

---

Est il possible de faire un truc du style..... (attention débutant... )
Ce n'est qu'un exemple, je n'ai aucune idee de la syntaxe que cela pourrait avoir!!! :oops:

Code:

---

1 2 3 4

Private Sub {hist0,hist1,hist2......hist39}_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hist0.TextChanged calcul_hist_change(0..ou.1...2....39) End Sub

---

voila...... pas taper!! :roll:

Essaye de mettre à chaque fois cet evenement:

Code:

---

1 2	((TextBox)sender).Text

---

je vois bien ce que tu veux dire . j'ai déja rencontré ce genre de besoin.

voici une solution :

Code:

---

1 2 3 4

Private Sub MaProcedure(ByVal sender As System.Object, ByVal e As System.EventArgs) calcul_hist_change( CType(sender, TextBox).TabIndex) End Sub

---

Ensuite dans ta Form tu fais pointer toutes les TextBox sur la procédure.
De cette façon:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim i As Integer Dim text As TextBox For i = 0 To Me.Controls.Count - 1 If TypeOf Me.Controls(i) Is TextBox Then text = Me.Controls(i) AddHandler text.TextChanged, AddressOf MaProcedure End If Next End Sub

---

Ne pas oublier d'initialiser correctement les TabIndex de tes TextBox, pour éviter les confusions.

Ca se règle en quelques minutes avec l'héritage...Tu n'as qu'à créer ton propre contrôle qui hérite de textbox...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Class MyTextBox Inherits TextBox   Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs) Me.calcul_hist_change() MyBase.OnTextChanged(e) End Sub   Private Sub calcul_hist_change()   End Sub End Class

---

et si tu as besoin de savoir quel contrôle à déclanché la procédure, c'est pas beaucoup plus compliqué, à toi de voir quelle information est la plus utile (nom du contrôle ou autre)


par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Class MyTextBox Inherits TextBox   Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs) Me.calcul_hist_change(Me) MyBase.OnTextChanged(e) End Sub   Private Sub calcul_hist_change(ByVal tb As MyTextBox) End Sub End Class

---

Bon ben j'men vais essayer tout ca.... manifestement cela a l'air possible... :D :D

Je vous tient au courant.. merci :D

Mouais,, faire un héritage pour ca, je sais pas vraiment si ca en vaut la peine... :roll: :?

Autre solution classique:

On donne comme Handles de la Sub tous les histx.TextChanged.
On teste le sender pour voir quel contrôle a déclenché.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub HistoTextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hist0.TextChanged, hist1.TextChanged, hist2.TextChanged, hist3.TextChanged... if sender Is hist0 then calcul_hist_change(0) end if if sender Is hist1 then calcul_hist_change(1) end if   ... End Sub

---

J'aurais fait comme toubib

J'ai appris deux choses geniales... debutant oblige!!

On peut creer ses propres controles....

et il est possible d'attribuer un sub a plusieurs controls...


Avec ca je devrais pouvoir faire bcp bcp de choses....de quoi m'occuper au moins une semaine... :D

Et aussi reduire mon code d'au moins 700 lignes.. c'est pas une blague

Un petit pas pour vous... mais un grand pour moi.. :D :D

Encore merci bcp :D :D

700 lignes en moins plus tard.... toutes mes textbox et autres controls reunis en 3 ou 4..... le pied!!!! :D :D :D

Code:

---

1 2 3 4 5 6

Private Sub histoTextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hist0.TextChanged, hist1.TextChanged, hist2.TextChanged, ......, hist16.TextChanged   calcul_hist_change(sender.AccessibleName)   End Sub

---

Je ne savais pas trop ou mettre ma variable, alors j'ai utilise le champ .AccessibleName ... j'espere ne pas avoir fait de boulette.. mais pour l'instant cela marche nickel!!! :D :D