antonymel
Messages postés11Date d'inscriptionvendredi 1 février 2008StatutMembreDernière intervention 4 février 2008
-
1 févr. 2008 à 01:39
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 2018
-
1 févr. 2008 à 22:28
Bonjour
je voudrais afficher des bouton ou pas par rapport a un fichier texte qui contient la confihuration je vous met le code :
Dim var_button, MaString
Open "c:\vb\test.txt" For Input As #1
i = 1
While Not EOF(1)
Line Input #i, MaString
i = i + 1
' la je recupere la string dans le fhier et je la concatene apres avec but_ pour avoir le nom du boutton
var_button = "But_" & Mid(MaString, 4)
var_button.Visible = True
Wend
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 1 févr. 2008 à 10:30
Sous quel logiciel programmes-tu ?
et éventuellement, où est le contrôle but_XYZ ?
et tu peux utiliser un MsgBox pour afficher le nom de contrôle que tu veux traiter pour être certain qu'il n'y a pas d'erreur au niveau du nom
antonymel
Messages postés11Date d'inscriptionvendredi 1 février 2008StatutMembreDernière intervention 4 février 2008 1 févr. 2008 à 10:33
oui ca c bon j'ai le nom du controle est bon le control et sur le form en lui meme en faite quand le form load il lit dans le fichier texte quel bouton il doit afficher.
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 1 févr. 2008 à 10:42
oui ca c bon j'ai le nom du controle est bon le control et sur le form
en lui meme en faite quand le form load il lit dans le fichier texte
quel bouton il doit afficher.
??? est-ce que ça veut dire que le problème est réglé ???
Sinon, essaie ceci sur une nouvelle Form avec un seul bouton
Private Sub Form_Load()
Dim Nom As String
Nom = "Command" & 1
Me.Controls(Nom).Visible = False
End Sub
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 1 févr. 2008 à 10:50
Oui, si tu utilises Me.Controls
Et si tu testes ce que je t'ai donné comme code, tu verras que ça fonctionne... je viens tout juste de l'essayer...
Par contre, sous Office, il y a 3 types de boutons qui font partie des collections Controls, Shapes ou OleObject. Dans ce cas, il faut savoir duquel on parle.
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI