Convertir un string en objet ou controlRésolu

Question

Bonjour &#224; tous,
J'ai un gros pb, je souhaite ecrire une fcontion qui r&#233;cup&#232;re dans une base de donn&#233;es le nom des controls que j'ai pr&#233;lablement renseign&#233;e. 
ex : la table s'appelle AFFICHAGE et j'ai 5 champs
AFFICHAGE_REF, AFFICHAGE_OBJET, AFFICHAGE_PARENT, AFFICHAGE_TYPE qui est renseign&#233;e tel que : 
1, frmconfiguration, frmconfiguration, Form
2, PnlAffichage, frmconfiguration, Panel
3, LblAffichage, frmconfiguration, Label

Ce qui veut dire que Pnlaffichage est un panel (ou une frame) qui appartient au form Frmconfiguration.
Bon pour &#231;a pas de soucis, l&#224; ou &#231;a se complique c'est que je voudrais en parcourant ma table, attribuer des propri&#233;t&#233;s &#224; ces control ou objets.

je voudrais par exemple &#233;x&#233;cuter [frmconfiguration.pnlaffichage.backcolor = strcouleur]

si je met dans une variable 
strvar = "frmconfiguration.pnlaffichage"
comment executer cette variable pour pouvoir changer la couleur de fond du control ?

d&#233;sol&#233; si je ne suis pas clair, et je n'ai trouv&#233; aucun topics l&#224;-dessus.

Merci pour votre aide.

clementio · Accepted Answer

Ce que tu essaies de faire est un peu compliqué mais je peux te donner une piste. Avec le code suivant tu vas passer en revue tous les contrôles de ta Form jusqu'à trouver celui qui t'intéresse grâce à la propriété "Name" et ensuite tu lui attribues son "BackColor":

   Dim pControl As Control
   
   For Each pControl In Me.Controls
      If pControl.Name = "pnlaffichage" Then
         pControl.BackColor = vbRed
      End If
   Next


J'espère que ça t'aidera, A+ Clm.

Renfield · Answer

utilises CallByName

Renfield
Admin CodeS-SourceS - MVP Visual Basic

funky_kronos · Answer

Mercni beaucoup clementio et renfield.

Je me suis inspir&#233; de la r&#233;ponse de Cl&#233;mentio pour faire ce que je voulais et c'est OK.



En tout cas merci de la rapidit&#233; de vos r&#233;ponse.

Cordialement,