Discussion :

[Gualino]

Bonjour à tous,

Voilà mon problème:

J'ai ce code à implémenter plusieur fois:

Code :

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

1
2
3
4
5
Dim binding As New Binding("Text", Chassis, "TotalMass", True, DataSourceUpdateMode.OnValidation, 0)
 
        binding.ControlUpdateMode = ControlUpdateMode.Never
 
        TotalMass_tbox.DataBindings.Add(binding)

Le problème est que celui-ci est relativement long, et que pour chaque nouveau binding, je dois inventer un nouveau nom...

Code :

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

     TotalMass_tbox.DataBindings.Add(New Binding("Text", Chassis, "TotalMass", True, DataSourceUpdateMode.OnValidation, 0))

Celui ci est nettement plus concis et je n'ai pas à inventer un nom, en revanche n'ayant plus le nom de l'instance je n'arrive pas à appliquer cette ligne de code:

Code :

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

binding.ControlUpdateMode = ControlUpdateMode.Never

J'ai essayer de creer une classe binding pour que le constructeur implémente ce code par defaut, j'ai essayé "Me"....

Comment dois je faire?

[tomlev]

pour chaque nouveau binding, je dois inventer un nouveau nom...

Non, pas du tout... tu peux très bien réutiliser le même nom. Le nom est celui de la variable, pas de l'instance (la notion de "nom d'une instance" n'existe pas d'ailleurs). Tu peux très bien faire pointer la même variable vers une autre instance. Réutilise simplement ta variable binding en lui affectant un nouveau Binding.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim binding As New Binding("Text", Chassis, "TotalMass", True, DataSourceUpdateMode.OnValidation, 0)
binding.ControlUpdateMode = ControlUpdateMode.Never
TotalMass_tbox.DataBindings.Add(binding)
 
binding = New Binding("Text", Chassis, "Length", True, DataSourceUpdateMode.OnValidation, 0)
binding.ControlUpdateMode = ControlUpdateMode.Never
Length_tbox.DataBindings.Add(binding)
 
binding = New Binding("Text", Chassis, "Width", True, DataSourceUpdateMode.OnValidation, 0)
binding.ControlUpdateMode = ControlUpdateMode.Never
Width_tbox.DataBindings.Add(binding)
 
...

Cela dit, c'est pas encore idéal, parce que ça fait beaucoup de répétition. Perso j'implémenterais une méthode dédiée pour ça :

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
Sub SetBinding(ByVal ctl As Control, ByVal propertyName As String, ByVal dataSource As Object, ByVal dataMember As String)
 
    Dim binding As New Binding(propertyName, dataSource, dataMember, True, DataSourceUpdateMode.OnValidation, 0)
    binding.ControlUpdateMode = ControlUpdateMode.Never
    ctl.DataBindings.Add(binding)
 
End Sub
 
 
...
 
SetBinding(TotalMass_tbox, "Text", Chassis, "TotalMass")
SetBinding(Length_tbox, "Text", Chassis, "Length")
SetBinding(Width_tbox, "Text", Chassis, "Width")
...

[SLE]

Celui ci est nettement plus concis et je n'ai pas à inventer un nom, en revanche n'ayant plus le nom de l'instance je n'arrive pas à appliquer cette ligne de code:

Code :

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

binding.ControlUpdateMode = ControlUpdateMode.Never

J'ai essayer de creer une classe binding pour que le constructeur implémente ce code par defaut, j'ai essayé "Me"....

Comment dois je faire?

Pour ça, vous pouvez utiliser les "initializers" :

Code :

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

TotalMass_tbox.DataBindings.Add(New Binding("Text", Chassis, "TotalMass", True, DataSourceUpdateMode.OnValidation, 0) With {.ControlUpdateMode = ControlUpdateMode.Never})

(je programme en C#, pas en VB, mais la syntaxe doit ressembler à ça)

[Gualino]

Merci Tomlev!

Oui justement je suis en train de faire çà dans une boucle:
http://www.developpez.net/forums/d11...g/#post6255014

Et j'étais bloqué à cause de çà!