Discussion :

[Gualino]

Bonsoir à tous,

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

La déclaration est la suivante:

Code :

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

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?

[Gualino]

Code :

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

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?

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

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

[Gualino]

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

Code :

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

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

[Gualino]

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?

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