Page 1 sur 1
[R] Menu ne fonctionne pas
Posté : jeu. 27 déc. 2007 21:13
par arrkhan
mais en construisant un script exemple pour le poster, j'ai trouvé la solution, onc je poste tout de même le script, il peut etre utile a d'autres...
► Afficher le texte
Code : Tout sélectionner
#NoTrayIcon
#Include <Constants.au3>
#include <GUIConstants.au3>
Opt ( "TrayMenuMode" , 1 )
Opt ( "TrayOnEventMode" , 1 )
TraySetClick ( 8 )
TrayCreateItem ( "Options" )
TrayItemSetOnEvent ( - 1 , "_Options" )
TrayCreateItem ( "Exit" )
TrayItemSetOnEvent ( - 1 , "_ExitEvent" )
TraySetState ( )
TraySetOnEvent ( $TRAY_EVENT_PRIMARYDOUBLE , "_DoubleClickTray" )
While 1
Sleep ( 10 )
WEnd
Exit
Func _Options ( )
$Gui = GUICreate ( "test" , 200 , 200 , - 1 , - 1 )
GUISetState ( )
While 1
$msg = GUIGetMsg ( )
If $msg = - 3 Then
GUIDelete ( $Gui )
ExitLoop
EndIf
WEnd
EndFunc ; == >_Options
Func _DoubleClickTray ( )
Select
Case @TRAY_ID = $TRAY_EVENT_PRIMARYDOUBLE
MsgBox ( 0 , "" , "test double click" )
EndSelect
EndFunc ; == >_DoubleClickTray
Func _ExitEvent ( )
$MsgBoxAnswer = MsgBox ( 270644 , "test" , "Êtes - vous sûr de vouloir quitter ?" )
Select
Case $MsgBoxAnswer = 6 ;Oui
Exit
Case $MsgBoxAnswer = 7 ;Non
ContinueCase
EndSelect
EndFunc ; == >_ExitEvent
Posté : ven. 28 déc. 2007 00:01
par Tlem
Très bien, mais quel était le problème du départ ?
Posté : ven. 28 déc. 2007 17:06
par arrkhan
ah ouais ^^
ben j'arrivais pas a faire fonctionner les menus a cause du Opt ( "TrayOnEventMode" , 1 ), parce qu'il fallait passer exclusivement par l'usage de fonctions (j'avais mal lu le help)