Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <GUIConstantsEx.au3>
- #include <ButtonConstants.au3>
- GUICreate("My GUI Context Menu", 300, 200)
- Local $case_0, $case_1, $case_2, $case_3
- Local $contextmenu = GUICtrlCreateContextMenu()
- Local $button = GUICtrlCreateButton("OK", 100, 100, 70, 20)
- Local $buttoncontext = GUICtrlCreateContextMenu($button)
- GUICtrlCreateMenuItem("About button", $buttoncontext)
- Local $newsubmenu = GUICtrlCreateMenu("new", $contextmenu)
- GUICtrlCreateMenuItem("text", $newsubmenu)
- $case_0 = GUICtrlCreateMenuItem("Case 0", $contextmenu)
- $case_1 = GUICtrlCreateMenuItem("Case 1", $contextmenu)
- GUICtrlCreateMenuItem("", $contextmenu) ; separator
- $case_2 = GUICtrlCreateMenuItem("Case 2", $contextmenu)
- $case_3 = GUICtrlCreateMenuItem("Case 3", $contextmenu)
- GUICtrlCreateMenuItem("Info", $contextmenu)
- GUISetState()
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $case_0
- MsgBox(0, "Case 0", "This is Case 0")
- Case $case_1
- MsgBox(0, "Case 1", "This is Case 1")
- Case $case_2
- _Function_case_2()
- Case $case_3
- MsgBox(0, "Case 3", "This is Case 3")
- EndSwitch
- WEnd
- Func _Function_case_2()
- MsgBox(0, "Case 2", "This is Function Case 2")
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment