Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

to be or not to be

4 réponses
Avatar
jhon
bonjour =E0 tous.
d=E9sol=E9 pour l'objet du post mais difficile de r=E9sumer :
Question qui a sans doute =E9t=E9 d=E9j=E0 pos=E9e mais je vous=20
avoue avoir la flemme de scanner les 1000 et quelques=20
pages du newsgroup.
Venons en au fait :
Est il possible d'interpreter =E0 la vol=E9e le contenu d'une=20
variable...oui je sais ce n'est pas clair.
Je prends un exemple : j'ai une toolbar. sur cette toolbar=20
je met des boutons. A chaque bouton j'associe une "key".=20
Dans l'evenement click de ma toolbar, je me vois=20
aujourd'hui dans l'obligation de tester quel bouton a =E9t=E9=20
cliqu=E9 pour executer l'action adequate.
Or, faineant que je suis, ( ou pragmatique peut=20
etre ? ),j'aimerai pouvoir faire un truc du genre :

Private Sub Toolbar1_ButtonClick(ByVal Button As=20
MSComctlLib.Button)

/*=3D>lancer directement une instruction VB qui serait tout=20
simplement le contenu de la propri=E9t=E9 "Key" de mon=20
bouton...*/

eval(Button.Key)=20

end sub

'ou eval serait le truc magique qui dirait =E0 vb=20
d'interpreter Button.Key...

a bons lecteurs, salut.

4 réponses

Avatar
Zoury
Salut! :O)

Voici un post de Ken Halter qui couvre bien le sujet
http://groups.google.com/groups?threadmïB6YtjSDHA.2432%40TK2MSFTNGP10.phx.gbl

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
"jhon" wrote in message
news:022501c377b9$c10792e0$
bonjour à tous.
désolé pour l'objet du post mais difficile de résumer :
Question qui a sans doute été déjà posée mais je vous
avoue avoir la flemme de scanner les 1000 et quelques
pages du newsgroup.
Venons en au fait :
Est il possible d'interpreter à la volée le contenu d'une
variable...oui je sais ce n'est pas clair.
Je prends un exemple : j'ai une toolbar. sur cette toolbar
je met des boutons. A chaque bouton j'associe une "key".
Dans l'evenement click de ma toolbar, je me vois
aujourd'hui dans l'obligation de tester quel bouton a été
cliqué pour executer l'action adequate.
Or, faineant que je suis, ( ou pragmatique peut
etre ? ),j'aimerai pouvoir faire un truc du genre :

Private Sub Toolbar1_ButtonClick(ByVal Button As
MSComctlLib.Button)

/*=>lancer directement une instruction VB qui serait tout
simplement le contenu de la propriété "Key" de mon
bouton...*/

eval(Button.Key)

end sub

'ou eval serait le truc magique qui dirait à vb
d'interpreter Button.Key...

a bons lecteurs, salut.
Avatar
ng
Salut,
Pour ton prblème, je vois deux solutions :
1/tu implantes la méthode eval javascript contenue dans l'objet "microsoft
script control" mais ceci ne permet que faire des opérations, elle ne lance
pas de sub etc...
2/tu utilises la méthode CallByName qui peut être pratique et qui permet de
lancer une fonction par son nom en string..

Nicolas.


"jhon" a écrit dans le message de news:
022501c377b9$c10792e0$
bonjour à tous.
désolé pour l'objet du post mais difficile de résumer :
Question qui a sans doute été déjà posée mais je vous
avoue avoir la flemme de scanner les 1000 et quelques
pages du newsgroup.
Venons en au fait :
Est il possible d'interpreter à la volée le contenu d'une
variable...oui je sais ce n'est pas clair.
Je prends un exemple : j'ai une toolbar. sur cette toolbar
je met des boutons. A chaque bouton j'associe une "key".
Dans l'evenement click de ma toolbar, je me vois
aujourd'hui dans l'obligation de tester quel bouton a été
cliqué pour executer l'action adequate.
Or, faineant que je suis, ( ou pragmatique peut
etre ? ),j'aimerai pouvoir faire un truc du genre :

Private Sub Toolbar1_ButtonClick(ByVal Button As
MSComctlLib.Button)

/*=>lancer directement une instruction VB qui serait tout
simplement le contenu de la propriété "Key" de mon
bouton...*/

eval(Button.Key)

end sub

'ou eval serait le truc magique qui dirait à vb
d'interpreter Button.Key...

a bons lecteurs, salut.
Avatar
jhno
Bon...
Le script je n'ai pas essayé si tu me dis que je ne peux
lancer d'instruction je te crois sur parole.
Le callByName, c'est pas mal, je ne connaissais pas, mais
cela ne résoud pas mon problème :
Apparamant on ne peut lancer que les méthodes, pas les
events, or je veux executer des chose genre monMenu_Click.
enfin merci.

Voir aussi la réponse à zoury.
Avatar
Ledev
jhno wrote:
Bon...
Le script je n'ai pas essayé si tu me dis que je ne peux
lancer d'instruction je te crois sur parole.



Si si, ont peut:
-Tu rend tes évènements public(remplace le private par public)
-Tu colle ton scriptcontrôle(qu'on nommera Script) sur ta feuille
-Tu insére sa dans ton Form_Load:
Script.AddObject "Feuille", Me

-Et quand tu veus appellez l'évènement:
MonScript.addcode & _
"Feuille."&Key &"_click"

Et là sa devrai appellez ton évènement

Toutefois je te conseil un Select Case, qui serra plus "light".

a+