自制主菜单调用菜单与工具栏自制主菜单调用菜单与工具栏自制主菜单调用菜单与工具栏一、建立项目 mainmenu二、建立菜单 menu1.在项目中新建菜单 menu2.文件和查看子菜单如图，其他的忽略不在说明，主要讲功能的实现：3.制作好菜单后，点击“显示〞菜单项选择择“常规选项〞，勾选顶层表单复选框，确定。如图：点击“菜单〞菜单项选择择“生成〞，生成一个同名的菜单，确定。如图：三、建立类库 libs，派生于 toolbar,建立工具栏。如图Libs 包含〔command1、command2 等按钮〕Libs.initDECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND, STRING,;STRING lpszFile,STRING ,STRING ,INTEGERLibs.Undockclea dllsLibs.caption工具栏Libs.ControlBox假Libs.Enabled真Libs.ShowWindow1-最上层表单Command1.clickDO FORM frmwen1四、建立表单1. 建立调用工具栏的表单 frmtools,建立表单集 formset表单集 formset(包含表单 frmtools)Formset.initSET CLASSLIB TO Libs ADDITIVE &&翻开包含工具栏的类库This.AddObject("mybar","libs") &&建立对象This.mybar.Show &&显示工具栏对象This.mybar.Dock(0) &&靠窗口上方停靠Formset.AutoRelease真Formset.NameFormsetFormset.visible假FrmTools.Caption无FrmTools.Desktop假FrmTools.MDIForm真FrmTools.ShowWindow1-在顶层表单中FrmTools.visible假FrmTools.NameFrmTools2. 建立主表单 frmbegin，主表单的大局部属性在 main 中程序中。表单 frmbegin(包含一个退出按钮)Frmbegin.initDO menu.mpr WITH this,.t. &&调用主菜单Frmbegin.unloadCLOSE ALLCLEAR EVENTSQuitFrmbegin.Caption无Frmbegin.Closable假Frmbegin.NameFrmbeginFrmbegin.ShowWindow2-作为顶层表单Frmbegin.WindowType0-无模式退出按钮.clickThisform.release3. 建立“文件 1〞按钮所调用的表单 frmwen1(主要用于说明程序的功能，没有有用性)表单 frmwen1(包含一个退出按钮)Frmwen1.loadSET SKIP OF BAR 1 OF 文件 .T.IF WEXIST("frmTools")frmTools.Mybar mand1.Enabled=.F.ENDIFFrmwen1.unloadSET SKIP OF BAR 1 OF 文件 .F.IF WEXIST("frmTools")frmTools.Mybar mand1.Enabled=.T.ENDIFFrmwen1.AutoCenter真Frmwen1.Closable假Frmwen1.NameFrmwen1Frmwen1.MaxButton假Frmwen1.MinButton假Frmwen1.ShowWindow1-在顶层表单中Frmwen1.WindowType0-无模式*退出按钮....
