So, I decided to create a template with the basic functions and post it here. With all the time I'm spending on writing these tutuorials, I'm afraid I haven't given this page much priority as yet. But, here's what I have so far.
And here's the shell source code to generate the dialog and menu you see above.
#Compile Exe #Dim All #Include "Win32api.inc" %ID_Open = 201 %ID_Save = 202 %ID_SaveAs = 203 %ID_Exit = 204 %ID_Email = 901 %ID_WebSite = 902 %ID_Help = 903 %ID_Update = 904 %ID_About = 905 Function PBMain() Dim hDlg As Dword Dialog New 0, "My Dialog",,, 150,100, %ws_overlappedwindow , To hDlg 'Create Bar ------------------------- Dim hMenu As Dword Menu New Bar To hMenu 'Create File + Children ------------------------- Dim hMenuFile As Dword Menu New PopUp To hMenuFile Menu Add PopUp, hMenu, "&File", hMenuFile, %mf_enabled Menu Add String, hMenuFile, "&Open", %ID_Open, %mf_enabled Menu Add String, hMenuFile, "&Save", %ID_Save, %mf_enabled Menu Add String, hMenuFile, "&Save As ..", %ID_SaveAs, %mf_enabled Menu Add String, hMenuFile, "E&xit", %ID_Exit, %mf_grayed '%mf_enabled 'Create Help + Children ------------------------- Dim hMenuHelp As Dword Menu New PopUp To hMenuHelp Menu Add PopUp, hMenu, "&Help", hMenuHelp, %mf_enabled Menu Add String, hMenuHelp, "&Email Author", %ID_Email, %mf_enabled Menu Add String, hMenuHelp, "&WebSite", %ID_WebSite, %mf_enabled Menu Add String, hMenuHelp, "&Online Help ..", %ID_Help, %mf_enabled Menu Add String, hMenuHelp, "&Online Update ..", %ID_Update, %mf_enabled Menu Add String, hMenuHelp, "&About ..", %ID_About, %mf_enabled 'Attach Bar to Dialog ------------------------- Menu Attach hMenu, hDlg Dialog Show
If you have any suggestions or corrections, please let me know.