Discussion :

[Gualino]

bonsoir à tous,

J'ai celle-si qui fonctionne:

Code :

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

1
2
3
4
5
6
7
8
 Private Sub ClearBinding()
        For Each InputControl As Control In ChassisInputControlCollection
            InputControl.DataBindings.Clear()
        Next
        For Each OutputControl As Control In ChassisOutputControlCollection
            OutputControl.DataBindings.Clear()
        Next
    End Sub

Et celle ci plus jolie mais qui ne fonctione pas, pourtant aucune erreur ne m'est signalé:

Code :

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

1
2
3
4
5
6
7
8
 Public Sub ClearBinding(ByVal Collection_1 As Microsoft.VisualBasic.Collection, ByVal Collection_2 As Microsoft.VisualBasic.Collection)
        For Each InputControl As Control In Collection_1
            InputControl.DataBindings.Clear()
        Next
        For Each OutputControl As Control In Collection_2
            OutputControl.DataBindings.Clear()
        Next
    End Sub

Sachant que dans les arguments de la 2e je met la même chose que dans la 1ere à savoir ChassisInputControlCollection et ChassisOutputControlCollection.