Boucle pour déclaration du data binding. (pb avec adressof)

Version imprimable

Bonsoir à tous,

J'ai enfin réussi à faire fonctionner le binding dans le sens que je voulais.

La déclaration est la suivante:
Code:

1 2 3 4 5 6 7 TotalMass_tbox.DataBindings.Clear() Dim binding As New Binding("Text", Chassis, "TotalMass", True, DataSourceUpdateMode.OnValidation, 0) binding.ControlUpdateMode = ControlUpdateMode.Never TotalMass_tbox.DataBindings.Add(binding)
Pour ce qui est du clear, je vois bien comment l'automatiser à travers une boucle For each.

Mais pour la déclaration du binding il faut établir une correspondance entre le control textbox et le nom de la propriété qu'il bind...

Comment faire?

Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub SetHandlers() For Each control As Control In {Mass_box, Geometry_box, Wheels_box, Suspension_box, Steering_box} If TypeOf control Is TextBox Then control.DataBindings.Clear() AddHandler control.Validated, AddressOf DisplayChassisTabResults End If Next End Sub
Qu'est ce donc que ce problem?

Citation:

Error 1 Method 'Private Sub DisplayChassisTabResults()' does not have a signature compatible with delegate 'Delegate Sub EventHandler(sender As Object, e As System.EventArgs)'. G:\YMD - 09.12\YMD\SetupForm.vb 17 57 YMD

12/09/2011, 22h53
Nathanael Marchand

Ben c'est marqué dans le message.
La fonction que tu as passé n'est pas un délégué compatible avec le délégué attendu. D'ailleurs, ca se voit bien que la signature n'est pas la même.

J'ai pris çà sur cet exemple qui fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Private Sub SetHandlers()
 
        For Each contr As Control In Controls
            If TypeOf contr Is TextBox Then
                AddHandler contr.Validated, AddressOf UpdateDownforce
            End If
        Next
 
    End Sub
 
    Private Sub UpdateDownforce()
        If isValueOK(TextBox1.Text, 100, 0) Then
            DownforceTextbox.Text = Math.Round(mycar1.CalculateTotalVerticalForce(TextBox1.Text), 2)
 
        End If
    End Sub

Ce délègue doit être implicite car je n'ai rien déclaré, et dans cette exemple non plus... Ma procedure DisplayChassisTabResults n'ayant pas de paramètre, il faut que je déclare explicitement un délègue sans paramètre??

13/09/2011, 11h14
Gualino

Citation:

Envoyé par Nathanael Marchand

Ben c'est marqué dans le message.
La fonction que tu as passé n'est pas un délégué compatible avec le délégué attendu. D'ailleurs, ca se voit bien que la signature n'est pas la même.

Comment les rendre compatible alors?
13/09/2011, 11h23
Nathanael Marchand

Un délégué est un pointeur sur une fonction. Comme pour un pointeur normal, tu ne peux pas faire pointeur d'entier sur un string, ca n'a pas de sens. Pour un délégué, c'est la même chose, il faut que tu regardes la documentation pour obtenir la signature d'une fonction qui correspond au type du délégué.