Accéder à un contrôle par variable

Bonjour,

J'ai un petit problème dans mon application, enfin ce n'est pas vraiment un problème puisque ça marche si je tape 15 lignes de code mais le code devient vite lourd.

J'ai dans mon Form 15 Oracle Adapter avec tous un nom différent.
Pour y accéder je fais donc avec ma méthode Fill.

Code:

---

1 2 3 4

OracleAdapter1.Fill(...) OracleAdapter2.Fill(...) (...) OracleAdapter15.Fill(...)

---

J'essaye donc de trouver le moyen de faire une ligne du genre :

Code:

---

("OracleAdapter" & Nombre).Fill(...)

---

Mais je n'arrive pas à trouver comment faire, auriez vous des idées ?
De même est il possible d'appeler une fonction avec des variables de ce type :

Code:

---

1 2 3 4 5 6

Dim MaVariable as String = "Fonction1" Call MaVariable()   Public Sub Fonction1() '(...) End Sub

---

Merci

salut,

essaye de voir si en faisant qq chose comme ca, ca marche :

Code:

---

1 2 3 4 5 6 7 8

Public Sub RefreshAdapters()   for int i = 1 to 15 CType(Me.Controls.Find("OracleAdapter" &i), OracleAdapter).Fill(); next   End Sub

---

Pour ta seconde question, il faudrait regarder du cote de la reflection...et je suis trop rouille la-dessus ;)

Ce que tu m'as indiqué ne marchait pas mais je te remercie puisque j'ai fais une recherche avec la réflection et je suis tombé sur un sujet qui m'a aidé.

En fait j'utilise maintenant une Hashtable, j'ajoute mes OracleDataAdapter au démarrage dans la Hashtable et ensuite je peux les utiliser avec mes noms de variable.

Code:

---

1 2 3 4 5 6

Dim ListODA As New Hashtable   ListODA.Add("ODA1", OracleDataAdapter1) ListODA.Add("ODA2", OracleDataAdapter2) '(...) ListODA.Add("ODA15", OracleDataAdapter15)

---

Code:

---

ListODA("ODA" & Nombre).Fill(...)

---