bonsoir à tous,
J'ai celle-si qui fonctionne:
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 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
Sachant que dans les arguments de la 2e je met la même chose que dans la 1ere à savoir ChassisInputControlCollection et ChassisOutputControlCollection.
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
Partager