Discussion :

[Michocs17141]

[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)

Code :

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

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!!!

Code :

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

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!!

[Thomas Lebrun]

Essaye de mettre à chaque fois cet evenement:

Code :

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

1
2
 
((TextBox)sender).Text

[Lahouari]

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

voici une solution :

Code :

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

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 :

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

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.

[Keihilin]

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 :

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

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 :

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

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

[Michocs17141]

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

Je vous tient au courant.. merci

[Thomas Lebrun]

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

[toubib]

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 :

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

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

[abelman]

J'aurais fait comme toubib

[Michocs17141]

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...

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..

Encore merci bcp

[Michocs17141]

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

Code :

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

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!!!