Code : Tout sélectionner
#include "ModernMenuRaw.au3"
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
;#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Global $Form, $Menu, $Form1, $Menu1, $Form2, $Menu2, $Form3, $Menu3
gui()
While 1
Sleep(10)
WEnd
Func Guiclose()
Switch @GUI_WinHandle
Case $Form1
_GUICtrlODMenuItemDelete($Menu1)
Case $Form2
_GUICtrlODMenuItemDelete($Menu2)
Case $Form3
_GUICtrlODMenuItemDelete($Menu3)
EndSwitch
GUIDelete(@GUI_WinHandle)
If @GUI_WinHandle = $Form Then Exit
EndFunc ;==>Guiclose
Func gui()
$Form = GUICreate("Form", 607, 418, 403, 199)
Local $ListView1 = GUICtrlCreateListView("", 8, 8, 586, 398)
$Menu = GUICtrlCreateContextMenu($ListView1)
_GUICtrlCreateODMenuItem("Menu :", $Menu, @ScriptDir & "\Ico\Menu.ico")
_GUICtrlCreateODMenuItem("", $Menu)
_GUICtrlCreateODMenuItem("Windows 1", $Menu, @ScriptDir & "\Ico\S1.ico")
GUICtrlSetOnEvent(-1, "Gui1")
_GUICtrlCreateODMenuItem("Windows 2", $Menu, @ScriptDir & "\Ico\S2.ico")
GUICtrlSetOnEvent(-1, "Gui2")
_GUICtrlCreateODMenuItem("Windows 3", $Menu, @ScriptDir & "\Ico\S3.ico")
GUICtrlSetOnEvent(-1, "Gui3")
GUISetOnEvent($GUI_EVENT_CLOSE, "Guiclose")
GUISetState(@SW_SHOW)
EndFunc ;==>gui
Func gui1()
$Form1 = GUICreate("Form1", 607, 418, 403, 199)
Local $ListView1 = GUICtrlCreateListView("", 8, 8, 586, 398)
$Menu1 = GUICtrlCreateContextMenu($ListView1)
_GUICtrlCreateODMenuItem("Menu F1:", $Menu1, @ScriptDir & "\Ico\S4.ico")
_GUICtrlCreateODMenuItem("", $Menu1)
_GUICtrlCreateODMenuItem("test1", $Menu1, @ScriptDir & "\Ico\S5.ico")
_GUICtrlCreateODMenuItem("test2", $Menu1, @ScriptDir & "\Ico\S6.ico")
_GUICtrlCreateODMenuItem("test3", $Menu1, @ScriptDir & "\Ico\S7.ico")
GUISetOnEvent($GUI_EVENT_CLOSE, "Guiclose")
GUISetState(@SW_SHOW)
EndFunc ;==>gui1
Func gui2()
$Form2 = GUICreate("Form2", 607, 418, 403, 199)
Local $ListView1 = GUICtrlCreateListView("", 8, 8, 586, 398)
$Menu2 = GUICtrlCreateContextMenu($ListView1)
_GUICtrlCreateODMenuItem("Menu F2:", $Menu2, @ScriptDir & "\Ico\S8.ico")
_GUICtrlCreateODMenuItem("", $Menu2)
_GUICtrlCreateODMenuItem("test1", $Menu2, @ScriptDir & "\Ico\S9.ico")
_GUICtrlCreateODMenuItem("test2", $Menu2, @ScriptDir & "\Ico\S10.ico")
_GUICtrlCreateODMenuItem("test3", $Menu2, @ScriptDir & "\Ico\S11.ico")
GUISetOnEvent($GUI_EVENT_CLOSE, "Guiclose")
GUISetState(@SW_SHOW)
EndFunc ;==>gui2
Func gui3()
$Form3 = GUICreate("Form3", 607, 418, 403, 199)
Local $ListView1 = GUICtrlCreateListView("", 8, 8, 586, 398)
$Menu3 = GUICtrlCreateContextMenu($ListView1)
_GUICtrlCreateODMenuItem("Menu F3:", $Menu3, @ScriptDir & "\Ico\S12.ico")
_GUICtrlCreateODMenuItem("", $Menu3)
_GUICtrlCreateODMenuItem("test1", $Menu3, @ScriptDir & "\Ico\S13.ico")
_GUICtrlCreateODMenuItem("test2", $Menu3, @ScriptDir & "\Ico\S14.ico")
_GUICtrlCreateODMenuItem("test3", $Menu3, @ScriptDir & "\Ico\S15.ico")
GUISetOnEvent($GUI_EVENT_CLOSE, "Guiclose")
GUISetState(@SW_SHOW)
EndFunc ;==>gui3
