Hollowyearz

Context Menu Switch Case Function Example

Dec 31st, 2013
220
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #include <GUIConstantsEx.au3>
  2. #include <ButtonConstants.au3>
  3.  
  4. GUICreate("My GUI Context Menu", 300, 200)
  5. Local $case_0, $case_1, $case_2, $case_3
  6. Local $contextmenu = GUICtrlCreateContextMenu()
  7.  
  8. Local $button = GUICtrlCreateButton("OK", 100, 100, 70, 20)
  9. Local $buttoncontext = GUICtrlCreateContextMenu($button)
  10. GUICtrlCreateMenuItem("About button", $buttoncontext)
  11.  
  12. Local $newsubmenu = GUICtrlCreateMenu("SubMenu", $contextmenu)
  13. $smItem_1 = GUICtrlCreateMenuItem("SubMenuItem1", $newsubmenu)
  14. $smItem_2 = GUICtrlCreateMenuItem("SubMenuItem2", $newsubmenu)
  15. $smItem_3 = GUICtrlCreateMenuItem("SubMenuItem3", $newsubmenu)
  16.  
  17. $case_0 = GUICtrlCreateMenuItem("Case 0", $contextmenu)
  18. $case_1 = GUICtrlCreateMenuItem("Case 1", $contextmenu)
  19. GUICtrlCreateMenuItem("", $contextmenu) ; separator
  20. $case_2 = GUICtrlCreateMenuItem("Case 2", $contextmenu)
  21. $case_3 = GUICtrlCreateMenuItem("Case 3", $contextmenu)
  22.  
  23. $info = GUICtrlCreateMenuItem("Info", $contextmenu)
  24.  
  25. GUISetState()
  26.  
  27. While 1
  28.     $nMsg = GUIGetMsg()
  29.     Switch $nMsg
  30.         Case $GUI_EVENT_CLOSE
  31.             Exit
  32.         Case $case_0
  33.             MsgBox(0, "Case 0", "This is Case 0")
  34.         Case $case_1
  35.             MsgBox(0, "Case 1", "This is Case 1")
  36.         Case $case_2
  37.             _Function_case_2()
  38.         Case $case_3
  39.             MsgBox(0, "Case 3", "This is Case 3")
  40.         Case $info
  41.             _infoFunction()
  42.         Case $smItem_1
  43.             MsgBox(0, "SubMenu", "Item 1 from Sub Menu")
  44.         Case $smItem_2
  45.             MsgBox(0, "SubMenu", "Item 2 from Sub Menu")
  46.         Case $smItem_3
  47.             MsgBox(0, "SubMenu", "Item 3 from Sub Menu")
  48.     EndSwitch
  49. WEnd
  50.  
  51. Func _Function_case_2()
  52.     MsgBox(0, "Case 2", "This is Function Case 2")
  53. EndFunc   ;==>_Function_case_2
  54.  
  55. Func _infoFunction()
  56.     MsgBox(0, "Info", "This is Info Menu")
  57. EndFunc   ;==>_smItem1
Advertisement
Add Comment
Please, Sign In to add comment