Implentation de code sans le nom de l'instance.

Bonjour à tous,

Voilà mon problème:

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

Code:

---

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:

---

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:

---

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?

Citation:

---

Envoyé par Gualino

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:

---

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:

---

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") ...

---

Citation:

---

Envoyé par Gualino

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:

---

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:

---

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)

Merci Tomlev! :ccool:

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 çà!