[..] Petit probleme

[ethneldryt]

Bonjour j'ai un petit probleme :

Code : Tout sélectionner

#include <GUIConstants.au3>
GUICreate("apps", 150, 110, -1, -1)

$menufichier=GuiCtrlCreateMenu("Fichier")
$item1=GUICtrlCreateMenuItem("quitter",$menufichier)
GUICtrlSetOnEvent($item1,"quitter")

$Button1 = Guictrlcreatebutton ("Ouvrir lecteur", 0,0,100,30)
$Button2 = Guictrlcreatebutton ("Fermer lecteur", 0,30,100,30)
$Button3 = Guictrlcreatebutton ("Beep beep", 0,60,100,30)

GUISetState()
While 1
  
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            Exit
        Case $nMsg = $Button1
            CDTray("e:","open")
            ;beep (100,200)
        Case $nMsg = $Button2
            CDTray("e:","close")
           ;beep(1000,200)
        Case $nMsg = $Button3
           ;Beep(200,200)   
    EndSelect
WEnd

Func quitter()
    Exit
EndFunc

Quand je clic sur quitter, ca ne marche pas, d'ou viens l'erreur? merci.

[ani]

l'erreur est toute simple

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)  ; change le Mode event

Dim $Gui,$MenuFichier,$Item1,$Button1,$Button2,$Button3

$GUi = GUICreate("apps", 150, 110, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter") ; +

$MenuFichier=GuiCtrlCreateMenu("Fichier")
$Item1=GUICtrlCreateMenuItem("quitter",$Menufichier)
GUICtrlSetOnEvent($Item1,"quitter")

$Button1 = Guictrlcreatebutton ("Ouvrir lecteur", 0,0,100,30)
$Button2 = Guictrlcreatebutton ("Fermer lecteur", 0,30,100,30)
$Button3 = Guictrlcreatebutton ("Beep beep", 0,60,100,30)

GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
        Case $Button1
            CDTray("e:","open")
            ;beep (100,200)
        Case $Button2
            CDTray("e:","close")
           ;beep(1000,200)
        Case $Button3
           ;Beep(200,200)   
    EndSelect
WEnd

Func quitter()
    Exit
EndFunc

[ethneldryt]

Merci, mais avec ton code les boutons ne marche plus maintenant :s

[ani]

je sais bien, je te mettais sur la piste,

voici une solution, y en a d'autre mais vu que ton début de script est sur le EventGUI (évènement sur interface) :

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)  ; change le Mode event

Dim $Gui,$MenuFichier,$Item1,$Button1,$Button2,$Button3

$GUi = GUICreate("apps", 150, 110, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "bouton") ; +

$MenuFichier=GuiCtrlCreateMenu("Fichier")
$Item1=GUICtrlCreateMenuItem("quitter",$Menufichier)
GUICtrlSetOnEvent(-1,"bouton")

$Button1 = Guictrlcreatebutton ("Ouvrir lecteur", 0,0,100,30)
GUICtrlSetOnEvent(-1,"bouton")

$Button2 = Guictrlcreatebutton ("Fermer lecteur", 0,30,100,30)
GUICtrlSetOnEvent(-1,"bouton")

$Button3 = Guictrlcreatebutton ("Beep beep", 0,60,100,30)
GUICtrlSetOnEvent(-1,"bouton")

GUISetState()

While 1
    sleep(100)
WEnd

Func bouton()
    Switch @GUI_CtrlId
        Case $GUI_EVENT_CLOSE or $Item1
            Exit
        Case $Button1
            $val = CDTray("e:\","open")
        Case $Button2
            $val = CDTray("e:\","close")
        Case $Button3
            $val = Beep(500,200)
    EndSwitch
return $val
EndFunc 

[Tlem]

@ethneldryt merci d'éditer le titre de votre message pour le rendre plus explicite.

'Petit probleme' ne résume pas votre problème.