Bonsoir à toutes et à tous,
Si je viens vous demander de l'aide, c'est parce que je débute et par conséquent, que j'ai beau cherché et n'ai pas trouvé la solution à mon problème (sauf erreur de ma part).
► Afficher le texte
Code : Tout sélectionner
; =====================================================================================
; Description ...: Script Test
; Author ........: Dakin Quelia
; Date ..........: 31/03/09
; Notes .........:
; ====================================================================================
#include <GuiConstantsEx.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>
global $msg_menu
; GUI
GuiCreate("Sample GUI", 400, 400)
GuiSetIcon(@SystemDir & "\mspaint.exe", 0)
MainMenu()
ContextMenu()
; ===================================================================================
; MENU
; ===================================================================================
Func MainMenu()
Local $filemenu
Local $quit, $aboutmenu, $about
Local $msg, $file
#forceref $separator1
GUICreate("MainMenu", 300, 200)
$filemenu = GuiCtrlCreateMenu("Fichier")
$newfile = GUICtrlCreateMenuItem("Nouveau", $filemenu)
$quit = GUICtrlCreateMenuItem("Quitter", $filemenu)
$aboutmenu = GuiCtrlCreateMenu("?")
$about = GUICtrlCreateMenuItem("A propos", $aboutmenu)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $newfile
MsgBox(0, "Nouveau", "test")
Case $msg = $quit Or $msg = -3 Or $msg = -1
ExitLoop
Case $msg = $about
MsgBox(0, "About", "GUI Menu Test")
EndSelect
WEnd
GUIDelete()
Exit
EndFunc
; ===================================================================================
; CONTEXT MENU
; ===================================================================================
Func ContextMenu()
Local $context, $contextMenu
Local $contextQuit, $contextAbout
Local $msg_context
$context = GUICreate("ContextMenu", 300, 200)
$contextMenu = GuiCtrlCreateContextMenu()
$contextAbout = GuiCtrlCreateMenuItem("A propos", $contextMenu)
$contextQuit = GUICtrlCreateMenuItem("Quitter", $contextMenu)
GUISetState()
While 1
$msg_context = GuiGetMsg()
If $msg_context = $contextQuit Or $msg_context = -3 Or $msg_context = -1 Then ExitLoop
If $msg_context = $contextAbout Then Msgbox(0,"A propos","A simple example with a context menu!")
WEnd
GUIDelete()
Exit
EndFunc
J'ai voulu créer la fonction Barre de menu et la fonction Menu Contextuel mais il semble que cela entre en conflit. Pourquoi? Je l'ignore sinon, j'aurais déjà résolu mon problème. J'ai hésité, au début, avant de vous appeler en espérant par trouver par moi-même mais je n'ai pu trouver donc je me retourne vers vous.
Je n'ai pas mis tout le code car trop lourd mais cela bloque à ce niveau. Le reste du script n'est pas exécuté de toute façon.
Je vous remercie d'avance.
A bientôt,
