Arguments sender et e

**Gualino** · 21/09/2011, 16h34

Bonjourà tous,

Dans ma classe j'ai :

Code :

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

1
2
3
4
5
6
Private Sub ChassisAddHandler()
        For Each InputControl As Control In ChassisInputControls
            AddHandler InputControl.TextChanged, AddressOf IsValueNumeric(ChassisInputControls, InputControl ?, InputControl.TextChanged ?)
 
        Next
    End Sub

et dans un module j'ai:

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub IsValueNumeric(ByVal collection As System.Collections.Generic.List(Of System.Windows.Forms.Control), ByVal sender As Object, ByVal e As System.EventArgs)
        For Each InputControl As Control In ChassisInputControls
            If Not IsNumeric(InputControl.Text) Then
                InputControl.BackColor = Color.Red
            Else
                InputControl.BackColor = Color.White
            End If
        Next
    End Sub

Donc pour pouvoir me servir de la sub IsValueNumeric, j'ai ajouté l'argument

Code :

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

(ByVal collection As System.Collections.Generic.List(Of System.Windows.Forms.Control)

mais je galère avec ceux du délégué...

Code :

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

AddressOf IsValueNumeric(ChassisInputControls, InputControl ?, InputControl.TextChanged ?)

**Pol63** · 21/09/2011, 17h08

tu fais fausse route
AddressOf IsValueNumeric
il n'y a rien à spécifier derrière
et la méthode désigné doit avoir les même paramètres que voulus par l'évènement (juste sender et e)

http://plasserre.developpez.com/cours/vb-net/

**Gualino** · 21/09/2011, 17h22

Envoyé par Pol63

tu fais fausse route
AddressOf IsValueNumeric
il n'y a rien à spécifier derrière
et la méthode désigné doit avoir les même paramètre que voulu par l'évènement (juste sender et e)

http://plasserre.developpez.com/cours/vb-net/

ceci:

Code :

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

1
2
3
4
5
6
Private Sub ChassisAddHandler()
        For Each InputControl As Control In ChassisInputControls
            AddHandler InputControl.TextChanged, AddressOf IsValueNumeric()
 
        Next
    End Sub

avec ceci:

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub IsValueNumeric(ByVal sender As Object, ByVal e As System.EventArgs)
        For Each InputControl As Control In ThisCollection
            If Not IsNumeric(InputControl.Text) Then
                InputControl.BackColor = Color.Red
            Else
                InputControl.BackColor = Color.White
            End If
        Next
    End Sub

fonctionne très bien je suis daccord, mais je voudrais pouvoir indiquer quelle est la collection à laquelle j'applique cette methode, donc j'ai rajouté un argument:

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub IsValueNumeric(ByVal COLLECTION As System.Collections.Generic.List(Of System.Windows.Forms.Control),ByVal sender As Object, ByVal e As System.EventArgs)
        For Each InputControl As Control In COLLECTION
            If Not IsNumeric(InputControl.Text) Then
                InputControl.BackColor = Color.Red
            Else
                InputControl.BackColor = Color.White
            End If
        Next
    End Sub

Mais dans ce cas le délégué me réclame les arguments

**Pol63** · 21/09/2011, 17h25

Envoyé par Pol63

tu fais fausse route
AddressOf IsValueNumeric
il n'y a rien à spécifier derrière
et la méthode désigné doit avoir les même paramètres que voulus par l'évènement (juste sender et e)

http://plasserre.developpez.com/cours/vb-net/

il faut trouver un autre moyen ...

sinon tu peux nous expliquer la globalité de ce que tu veux faire, parce que j'ai impression que tu fais une usine à gaz

**Gualino** · 21/09/2011, 17h40

Tel quel:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub IsValueNumeric(ByVal sender As Object, ByVal e As System.EventArgs)
        'Public Sub IsValueNumeric(ByVal collection As System.Collections.Generic.List(Of System.Windows.Forms.Control), ByVal sender As Object, ByVal e As System.EventArgs)
        For Each InputControl As Control In ChassisInputControls
            If Not IsNumeric(InputControl.Text) Then
                InputControl.BackColor = Color.Red
            Else
                InputControl.BackColor = Color.White
            End If
        Next
    End Sub

si la procedure est appelé elle ne s'appliquera qu'à la collection "ChassisInputControls". Donc si je désire appliquer cette méthode à une autre collection, il faut que je fasse une autre procédure IsValueNumeric qui s'appliquera à cette autre collection. Donc pourquoi ne pas ajouter un paramètre qui détermine à quelle collection la procédure s'applique?