Arguments sender et e

Version imprimable

Bonjourà tous,

Dans ma classe j'ai :

Code:

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:

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:

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

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

Code:

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

21/09/2011, 17h08
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/

Citation:

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:

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:

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:

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

21/09/2011, 17h25
Pol63

Citation:

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

Tel quel:
Code:

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?

21/09/2011, 17h43
Pol63

Citation:

Envoyé par Gualino

pourquoi

parce qu'on ne peut pas ...

ou alors tu hérites du textbox pour lui rajouter des propriétés
21/09/2011, 17h51
Gualino

Citation:

Envoyé par Pol63

parce qu'on ne peut pas ...

ou alors tu hérites du textbox pour lui rajouter des propriétés

Hériter de la classe ou de l'objet?
21/09/2011, 18h01
Pol63

un héritage est toujours un héritage de classe