Discussion :

[Yndigos]

Bonjour,
Existe t'il un opérateur d'indirection en VB6 ou mieux encore l'indirection est-elle permise avec Visual Basic.
A la question: "pourquoi l'indirection ?", je répondrai d'abord pourquoi pas ! Sinon un petit exemple :
NomChamp est une chaîne
NomChamp = "SAISIE1" //SAISIE1 est le nom du champ
//appel d'une procédure rendant un champ invisible
INVISIBLE(NomChamp)

PROCEDURE INVISIBLE(NChamp)
{NChamp} .. Etat = Invisible

Exemple tiré de l'aide Windev ! (pas de commentaires sur le language, ce n'est pas le but de mon post !)

Merci à tous...

[jlvalentin]

Ben, sur chaque éléments affichés tu as la proprieté Visible que tu peux mettre à True ou à False.

Code :

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

champ.Visible = False

rend le champ invisible.
Ou alors, j'ai pas compris le problème.

Jean-Luc
_________________________________________________________________________________________________

* Il n'existe que deux choses infinies, l'univers et la bêtise humaine... pour l'univers, je n'ai pas de certitude absolue.
* Two things are infinite : the universe and human stupidity... and I'm not sure about the universe.

ALBERT EINSTEIN

[Yndigos]

Ben, sur chaque éléments affichés tu as la proprieté Visible que tu peux mettre à True ou à False.

Code :

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

champ.Visible = False

rend le champ invisible.
Ou alors, j'ai pas compris le problème.

Ce n'est pas sur la proprité visible que j'ai un problème, mais sur l'opération d'indirection....
Ce que j'aimerais faire, c'est utiliser le contenu d'une variable pour modifier certaines propriété. Dans une variable, j'ai mis le nom d'un champs. J'aimerais utilisé le nom de ce champs pour modifier certaines caractéristiques.
C'est extrêmement facile pour un champs défini, mais lorsque l'on doit parcourir une fenêtre avec plein de champs différents...
En clair, je n'aime pas paluché du code !
voilà...

[Catbull]

Code :

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

1
2
3
4
5
Dim TextBoxName as String
 
TextBoxName = "TextBox1"
Controls(TextBoxName ).Text = "Modifié!"
Controls(TextBoxName ).Visible = False