[VB6] passer le nom d'un controle par variable

Recherche :

Dernière réponse
Sujet : [VB6] passer le nom d'un controle par variable
Bloodymary_	Ouais sauf si t as pas le nom de ton control mais que tu peux l identifier autrement (par son contenu par exemple) Si Chapi avait le nom du control, je pense qu il n aurait pas poster ;) Ou alors j ai rien compris :crazy: :hello:

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

Bloodymary_

Ouais sauf si t as pas le nom de ton control mais que tu peux l identifier autrement (par son contenu par exemple)

Si Chapi avait le nom du control, je pense qu il n aurait pas poster ;)

Ou alors j ai rien compris :crazy:

:hello:

Mandrix

Bloody> Ca marche, mais ca sert strictement à rien :)

Tu accède directement a Me.Controls("NomDuControle" ), ca fait pareil et ca va nettement + vite (à coder et à exécuter)

(Ou alors, c'est que j'ai pas pigé ce que tu veux faire)

Bloodymary_

-----
soit le controle text1
je voudrais pouvoir passer son nom (text1) dans une function..
genre :
controlName = text1.name

public function (controlname as string)
controlname.caption = "HFR is Fantastic"
End function
-----

dim Ctr as control

for each Ctr in me.controls
' cette boucle te permet de parcourir tous les controls
' de ta feuille
' il te suffit de verifier que tu pointes sur le bon et :
if ---- then call sub(Ctr.name) ' et hop

next

chapi

Non, j'aime pas les globales, j'en ai deja une 10aine dans un module et quand c'est un prog avec 65 forms, ça commence à être un peu le bordel à gérer...

Et mon prof d'algo m'a disait tjs "les globales c'est caca !" ;)

Kyle_Katarn

oui mais à ton niveau un petit passage par une globale ne doit pas être bien génant.

chapi

Oki merci, je vais voir ce que ça donne...paske passer par des globales, c'est pas ce que je préfère ;)

Controls est une collection, isn't it ?

Mandrix

2 solutions :

------------------------------------------------------------
'Fonction
Public Sub Titre(Ctl as Control)
if TypeOf Ctl Is CommandButton
Ctl.Caption = "Ca marche"
end if
End Sub

'Appel
Titre(BoutonOK)
'-> affiche "Ca marche" comme titre du bouton OK

------------------------------------------------------------
'Fonction
Public Sub Titre(ControlName as String)
Dim tmpCtl as Control
Set tmpCtl = MaForm.Controls(ControlName)
If tmpCtl is Nothing then
msgbox "La feuille MaForm ne contient pas de contrôle " & ControlName
Else
if TypeOf tmpCtl is CommandButton then
tmpCtl.Caption = "Ca marche"
else
msgbox "le controle " & controlname & " n'est pas un bouton"
end if
end if
End Sub

'Appel :
Titre "BoutonOK"

Voila qui devrait te permettre de faire ce que tu cherches

a+

chapi

bon j'ai toujours mon chti problème...je n'arrive pas à passer le nom en variable :-(

ex:

Dim test As Control

rep = InputBox("Nom du controle" )

Set test = rep
test.Caption = "HFR is fantastic"

...ne marche pas.. Ca fonctionne si je mets directos le nom du ocntrole à la place de rep mais ce n'est pas ça que je veux faire moua... je veux vraiment que le nom du controle se ballade et soit exploitable dans une fonction..

Merci d'avance !

chapi

Merci msieur !

Bloodymary_

Ben il suffit de declarer une variable de type control, de la faire pointer sur ton textbox et de passer son .name a ta function

vala ;)

chapi

Vouala mon soucis...

soit le controle text1

je voudrais pouvoir passer son nom (text1) dans une function..

genre :

controlName = text1.name

public function (controlname as string)

controlname.caption = "HFR is Fantastic"

Enf function

mais forcément, cela ne marche pas.... kelkun a une idée ? il y a une syntaxe spéciale ?

Merci d'avance

Chapi