Assigne un nouveau menu à la fenêtre spécifiée
#include <GuiMenu.au3>
_GUICtrlMenu_SetMenu ( $hWnd, $hMenu )
$hWnd | Handle de la fenêtre à laquelle le menu doit être affecté |
$hMenu | Handle du nouveau menu. Si 0, le menu actuel de la fenêtre est supprimé. |
Succès: | Retourne True. |
Échec: | Retourne False. |
Consultez SetMenu dans la librairie MSDN.
#include <GUIConstantsEx.au3> #include <GuiMenu.au3> #include <WinAPIConv.au3> #include <WindowsConstants.au3> Global $g_idMemo Global Enum $e_idNew = 1000, $e_idOpen, $e_idSave, $e_idExit, $e_idCut, $e_idCopy, $e_idPaste, $e_idAbout Example() Func Example() Local $hGUI, $hFile, $hEdit, $hHelp, $hMain ; Crée une GUI $hGUI = GUICreate("Menu", 400, 300) ; Crée un menu File $hFile = _GUICtrlMenu_CreateMenu() _GUICtrlMenu_InsertMenuItem($hFile, 0, "&New", $e_idNew) _GUICtrlMenu_InsertMenuItem($hFile, 1, "&Open", $e_idOpen) _GUICtrlMenu_InsertMenuItem($hFile, 2, "&Save", $e_idSave) _GUICtrlMenu_InsertMenuItem($hFile, 3, "", 0) _GUICtrlMenu_InsertMenuItem($hFile, 4, "E&xit", $e_idExit) ; Crée un menu Edit $hEdit = _GUICtrlMenu_CreateMenu() _GUICtrlMenu_InsertMenuItem($hEdit, 0, "&Cut", $e_idCut) _GUICtrlMenu_InsertMenuItem($hEdit, 1, "C&opy", $e_idCopy) _GUICtrlMenu_InsertMenuItem($hEdit, 2, "&Paste", $e_idPaste) ; Crée un menu Help $hHelp = _GUICtrlMenu_CreateMenu() _GUICtrlMenu_InsertMenuItem($hHelp, 0, "&About", $e_idAbout) ; Crée un menu Main $hMain = _GUICtrlMenu_CreateMenu() _GUICtrlMenu_InsertMenuItem($hMain, 0, "&File", 0, $hFile) _GUICtrlMenu_InsertMenuItem($hMain, 1, "&Edit", 0, $hEdit) _GUICtrlMenu_InsertMenuItem($hMain, 2, "&Help", 0, $hHelp) ; Affecte le menu à la fenêtre _GUICtrlMenu_SetMenu($hGUI, $hMain) ; Crée un contrôle mémo $g_idMemo = GUICtrlCreateEdit("", 2, 2, 396, 276, 0) GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New") GUISetState(@SW_SHOW) ; Boucle jusqu'à ce que l'utilisateur quitte. GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") ; Boucle jusqu'à ce que l'utilisateur quitte. Do Until GUIGetMsg() = $GUI_EVENT_CLOSE EndFunc ;==>Example ; Répond aux événements du menu Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam) #forceref $hWnd, $iMsg, $lParam Switch _WinAPI_LoWord($wParam) Case $e_idNew MemoWrite("New") Case $e_idOpen MemoWrite("Open") Case $e_idSave MemoWrite("Save") Case $e_idExit Exit Case $e_idCut MemoWrite("Cut") Case $e_idCopy MemoWrite("Copy") Case $e_idPaste MemoWrite("Paste") Case $e_idAbout MemoWrite("About") EndSwitch Return $GUI_RUNDEFMSG EndFunc ;==>WM_COMMAND ; Ecrit un message dans le contrôle mémo Func MemoWrite($sMessage) GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1) EndFunc ;==>MemoWrite