Page 1 sur 1

[R] Menu déroulant sur autoIT

Posté : lun. 30 juin 2008 11:12
par zhana37
bonjour, voilà, je commence par 2 questions ...

Je vous montre en premier le script d'un menu que j'ai attrapé sur le net;

Code : Tout sélectionner

$mn_Fichier = GUICtrlCreateMenu("&Fichier")
$ssMn_Ouvrir = GUICtrlCreateMenuItem("&message", $mn_Fichier)
$ssMn_Quitter = GUICtrlCreateMenuItem("&Quitter", $mn_Fichier)
il est bien jolie mais ...
Comment faire en sorte que dès que je clique sur "fichier > message" our que cette ligne s'éxcécute :

Code : Tout sélectionner

MsgBox(0, "titre", "ligne 1")    ;(pour faire un pop up pour afficher des infos)
Puis comment fermer le programme en cliquant sur "Fichier > Quitter" ...

Questions ridicules dû au faite que je débute, j'arrive déjà à automatiser des tâche
via la souris, mais pas sa ...

merci !

Re: Menue déroulant sur autoIT

Posté : lun. 30 juin 2008 12:01
par ani

Code : Tout sélectionner

$Gui = GUICreate("test",200,200)
$mn_Fichier = GUICtrlCreateMenu("&Fichier")
$ssMn_Ouvrir = GUICtrlCreateMenuItem("&message", $mn_Fichier)
$ssMn_Quitter = GUICtrlCreateMenuItem("&Quitter", $mn_Fichier)
GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $ssMn_Ouvrir
            msgbox(0,"TEST","TEST Menu ") ;sinon c'est fileopendialog("titre","dossier initial',"filtre")
        Case $msg = $ssMn_Quitter
            Exit
    EndSelect
WEnd

Re: [..] Menu déroulant sur autoIT

Posté : lun. 30 juin 2008 12:29
par zhana37
merci beaucoup ^^