[R] Passage d'argument par bouton

[GMH]

Bonjour,

Je souhaite passer un argument par un clic sur un bouton :

Code : Tout sélectionner

$argument = "1"
$boutonControler = GUICtrlCreateButton("Contrôler",200,550,80,20)
GUICtrlSetOnEvent($boutonControler, "controle($argument)")
...
Func controle($recup)
msgBox(0,"",$recup)
endFunc
 

J'obtiens cette erreur :

ERROR: controle($argument) : undefined function.

Si je code ainsi (sans guillemets) :

Code : Tout sélectionner

$argument = "1"
$boutonControler = GUICtrlCreateButton("Contrôler",200,550,80,20)
GUICtrlSetOnEvent($boutonControler, controle($argument))
 

... la fonction controle($recup) est lancée sans attendre qu'on l'appelle par un clic sur le bouton.

Je vous remercie si vous pouvez me dire comment on appelle une fonction avec argument par un clic sur un bouton.

[mikell]

Pas moyen...
Faut déclarer l'argument en dehors de la fonction

► Afficher le texte

Code : Tout sélectionner

Opt("GUIOnEventMode", 1)
Global $argument

GuiCreate("test")
$btn = GUICtrlCreateButton("Contrôler",10,10,80,20)
GUICtrlSetOnEvent(-1, "controle")
GuiSetState()

$argument = "1"
While 1
Wend

Func controle($recup)
$recup = $argument
msgBox(0,"",$recup)
endFunc

ou alors bricoler comme ici
http://www.autoitscript.com/forum/topic ... d-hotkeys/

[GMH]

Merci beaucoup.
J'étais loin de la solution et à mille lieues de la trouver !
Je vous remercie encore et vous souhaite une bonne journée.

[mikell]

J'ai oublié de préciser une bonne alternative
Si GUICtrlSetOnEvent ne permet pas le passage d'arguments dans la fonction appelée, par contre avec GUIRegisterMsg (qui intercepte les messages windows) c'est possible, et cette méthode peut très bien être intégrée dans n'importe quel script (eventmode ou pas)

► Afficher le texte

Code : Tout sélectionner

#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
Global $argument

GuiCreate("test")
$btn = GUICtrlCreateButton("Contrôler",10,10,80,30)
GuiSetState()

GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")

$argument = "1"
While 1
Wend

Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    [b] If BitAND($wParam, 0x0000FFFF) =  $btn Then controle($argument)[/b]
     Return 'GUI_RUNDEFMSG'
 EndFunc   ;==>_WM_COMMAND

Func controle($recup)
     msgBox(0,"",$recup)
endFunc
 

On peut aussi utiliser une fonction intermédiaire 'loader'

► Afficher le texte

Code : Tout sélectionner

Opt("GUIOnEventMode", 1)
Global $argument

GuiCreate("test")
$btn = GUICtrlCreateButton("Contrôler",10,10,80,20)
GUICtrlSetOnEvent(-1, "lanceur")
GuiSetState()

$argument = "test"
While 1
Wend

Func lanceur()
   controle($argument)
EndFunc

Func controle($recup)
   msgBox(0,"",$recup)
EndFunc
 

Cette limitation du GUICtrlSetOnEvent est donc loin d'être rédhibitoire

[GMH]

Autant le premier code de votre dernier message m'est abscons, autant le second offre une solution simple qui m'est parfaitement compréhensible. Je l'adopte. Merci encore pour votre disponibilité.