vfp自制主菜单调用菜单及工具栏

1、vfp自制主菜单调用菜单及工具栏自制主菜单调用菜单及工具栏自制主菜单调用菜单及工具栏自制主菜单调用菜单及工具栏建立项目mainmenu二、建立菜单menu1.在项目中新建菜单menu2.文件和查看子菜单如图，其他的忽略不在说明，主要讲功能的实现:3,制作好菜单后，点击“显示”菜单选择“常规选项”，勾选顶层表单复选框，确定。如图：点击“菜单”菜单选择“生成力生成一个同名的菜单，确定。如图:建立类库libs,派生于toolbar,建立工具栏。如图类库O报表 曾标答白 M% libs皿 libsB 代码0 程序H gjxz_ main r圄API摩?J应用程序Libs包含（commandl、comm

2、and2等按钮）Libs,initDECLAREINTEGERShellExecuteINshell32.DLLINTEGERHWND,STRING,;STRINGIpszFile,STRING,STRING,INTEGERLibs.UndockcleadllsLibs,caption工具栏Libs.ControlBoX假Libs.Enabled真Libs.ShowWindow1-最上层表单Command1.clickDOFORMfrmwenl工M栏工具工具二工具三工具四工具五工具六工具七建立表单1.建立调用工具栏的表单frmtools,建立表单集formset表单集formset（包含表单f

3、rmtools）Formset.initSETCLASSLIBTOLibsADDITIVE&打开包含工具栏的类库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.NameF

4、rmTools2.建立主表单frmbegin,主表单的大部分属性在main中程序中。表单frmbegin（包含一个退出按钮）Frmbegin.initDOmenu,mprWITHthis,.t.&调用主菜单Frmbegin.unloadCLOSEALLCLEAREVENTSQuitFrmbegin.Caption无Frmbegin.Closable假Frmbegin.NameFrmbeginFrmbegin.ShowWindow2-作为顶层表单Frmbegin.WindowType0-无模式退出按钮.clickThisform,release3.建立“文件1”按钮所调用的表单frmwenM主要

5、用于说明程序的功能，没有实用性）表单frmwenl（包含一个退出按钮）Frmwenl.loadSETSKIPOFBAR1OF文件.T.IFWEXISTCfrmTools)frmTools.Mmand1.Enabled=.FENDIFFrmwenl.unloadSETSKIPOFBAR1OF文件.F.IFWEXIST(frmTools)frmTools.Mmand1.Enabled=.T.ENDIFFrmwenLAutoCenter真FrmwenLClosable假FrmwenLNameFrmwenlFrmwenLMaxButton假Frmwenl.MinButton假Frmwenl.ShowW

6、indow1-在顶层表单中Frmwenl.WindowType0-无模式*退出按钮.clickThisform.release*一定要设置为无模式，否则工具栏会出问题。四、建立程序1.建立工具栏程序gjxzIFWEXISTCfrinTools)RELEASEWINDOWSfrmToolsELSEDOFORMfrmToolsNAMEfrmToolsIFWEXISTCfrowenr)frmTools.Mmand1.Enabled=.F.ENDIFENDIFSETMARKOFBAR1OF查看TOWEXISTCfrmTools*)2.建立主程序mainSETTALKOFFSETESCAPEOFFSET

7、EXCLUSIVEOFFSETHELPON&关闭命令显示&禁止运行的程序在按ESC键后被中断&允许网络上的任何用户共享和修改网络上打开的表当按下F1键或在命令窗口中执行HELP命令时，显示帮助窗口*SETHELPTOHelp,chm&指定帮助文件SETCONSOLEOXSETDATEANSISETCENTURYONSETSAFETYOFFSETSTATUSBARONSETCOLORTOSETHOURSTO24SETSYSMENUOFF她将所有的结果输出到vfp主窗口或活动的用户自定义窗口中瞌指定日期表达式的显示格式为yy.皿dd&指定日期中的年为4位数44指定在改写已有文件时不显示对话框&打开

8、VFP状态栏&设置颜色为默认状态&关闭系统菜单SETNOTIFYOFFSETNOTIFYCURSOROFF&不在状态栏中显示数据信息CLEARCLEARALLWITH.ScreenIindowState=l&清除主窗口&清除变量&设置VFP主窗口为不可见.VisibleF.ENDWITHPUBLICfrmbegin,frmtools,fnnvenl&定义表单名称全局变信DOFORMfrmBeginNAMEfrmbegin&运行主表单BeginWITHfrmbegin&设置主表单为可见、最大化、标题.VisibleT.Closable=.f. ControlBox=.T.MaxButton=.T. MinButton=.T.MovablesT. Top=0 Left=0.Caption：”自制主表单调用菜单及工具栏实例.ENDWITHDOFORMfrmToolsNAMEfrmTools&打开工具栏SETMA