Modify ↓
Opened on Aug 23, 2026 at 12:00:38 AM
Last modified on Aug 23, 2026 at 11:41:30 AM
#4110 new Bug
GUICtrlCreateMenu Example Code Cleanup
| Reported by: | jaberwacky | Owned by: | |
|---|---|---|---|
| Milestone: | Component: | Documentation | |
| Version: | 3.3.14.0 | Severity: | None |
| Keywords: | Cc: |
Description (last modified by )
Hello, I noticed that the example code seems to be disorganized for GUICtrlCreateMenu. I cleaned it up and would like to submit it please.
#include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> #include <StaticConstants.au3> Example() Func Example() GUICreate("My GUI menu", 300, 200) Local $idMnu_File = GUICtrlCreateMenu("&File") Local $idMni_File = GUICtrlCreateMenuItem("Open", $idMnu_File) GUICtrlSetState(-1, $GUI_DEFBUTTON) Local $idMnu_RecentFiles = GUICtrlCreateMenu("Recent Files", $idMnu_File, 1) GUICtrlCreateMenuItem("", $idMnu_File, 2) ; Create a separator line GUICtrlCreateMenuItem("Save", $idMnu_File) GUICtrlSetState(-1, $GUI_DISABLE) Local $idMni_Exit = GUICtrlCreateMenuItem("Exit", $idMnu_File) Local $idMnu_View = GUICtrlCreateMenu("View", -1, 1) ; Is created before "?" menu Local $idMni_ViewStatus = GUICtrlCreateMenuItem("Statusbar", $idMnu_View) GUICtrlSetState(-1, $GUI_CHECKED) Local $idMnu_Help = GUICtrlCreateMenu("?") Local $idMni_Info = GUICtrlCreateMenuItem("Info", $idMnu_Help) GUICtrlCreateButton("OK", 50, 130, 70, 20) GUICtrlSetState(-1, $GUI_FOCUS) Local $idBtn_Cancel = GUICtrlCreateButton("Cancel", 180, 130, 70, 20) Local $idLbl_Status = GUICtrlCreateLabel("Ready", 0, 165, 300, 16, BitOR($SS_SIMPLE, $SS_SUNKEN)) GUISetState(@SW_SHOW) Local $sFilePath ; Loop until the user exits. While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE, $idBtn_Cancel, $idMni_Exit Exit Case $idMni_Info MsgBox($MB_SYSTEMMODAL, "Info", "Only a test...") Case $idMni_File $sFilePath = FileOpenDialog("Choose a file...", @TempDir, "All (*.*)") If @error Then ContinueLoop EndIf GUICtrlCreateMenuItem($sFilePath, $idMnu_RecentFiles) Case $idMni_ViewStatus If BitAND(GUICtrlRead($idMni_ViewStatus), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($idMni_ViewStatus, $GUI_UNCHECKED) GUICtrlSetState($idLbl_Status, $GUI_HIDE) Else GUICtrlSetState($idMni_ViewStatus, $GUI_CHECKED) GUICtrlSetState($idLbl_Status, $GUI_SHOW) EndIf EndSwitch WEnd EndFunc
Attachments (0)
Note:
See TracTickets
for help on using tickets.
