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

1、自制主菜单调用菜单及工具栏自制主菜单调用菜单及工具栏2011/11/5自制主菜单调用菜单及工具栏建立项目mainmenu二、建立菜单menu1.在项目中新建菜单menu1*静谢懵-menu.mnx2.文件和查看子菜单如图，其他的忽略不在说明，主要讲功能的实现：3.制作好菜单后，点击“显示”菜单选择“常规选项”，勾选顶层表单复选框，确定。如图：点击“菜单”菜单选择“生成”，生成一个同名的菜单，确定。如图：三、建立类库libs,派生于toolbar,建立工具栏。如图Libs包含（commandl、command2等按钮）Libs.initDECLAREINTEGERShellExecuteINsh

2、ell32.DLLINTEGERHWND,STRING,;STRINGlpszFile,STRING,STRING,INTEGERLibs.UndockcleadllsLibs.caption工具栏Libs.ControlBox假Libs.Enabled真Libs.ShowWindow1-取上层表单Command1.clickDOFORMfrmwenl四、建立表单1. 建立调用工具栏的表单frmtools,建立表单集formset表单集formset（包含表单frmtools）Formset.initSETCLASSLIBTOLibsADDITIVE&&打开包含工具栏的类库Th

3、is.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.NameFrmTools

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

5、n1（主要用于说明程序的功能，没有实用性）表单frmwen1（包含一个退出按钮）Frmwen1.loadSETSKIPOFBAR1OF文件.T.IFWEXIST(frmTools)frmTools.Mmand1.Enabled二.F.ENDIFFrmwen1.unloadSETSKIPOFBAR1OF文件.F.IFWEXIST(frmTools)frmTools.Mmand1.Enabled二.T.ENDIFFrmwen1.AutoCenter真Frmwen1.Closable假Frmwen1.NameFrmwen1Frmwen1.MaxButton假Frmwen1.MinButton假Frm

6、wen1.ShowWindow1-在顶层表单中Frmwen1.WindowType0-无模式*退出按钮.clickThisform.release*一定要设置为无模式，否则工具栏会出问题。四、建立程序1.建立工具栏程序gjxzIFWEXIST("frmTools")RELEASEWINDOWSfrmToolsELSEDOFORMfrmToolsNAMEfrmToolsIFWEXIST("frmwen1")frmTools.Mmand1.Enabled=.F.ENDIFENDIFSETMARKOFBAR1OF查看TOWEXIST("frmTool

7、s")2.建立主程序mainSETTALKOFFSETESCAPEOFFSETEXCLUSIVEOFFSETHELPON&&关闭命令显示&&禁止运行的程序在按ESC键后被中断&&允许网络上的任何用户共享和修改网络上打开的表&&当按下F1键或在命令窗口中执行HELP命令时，显示帮助窗口*SETHELPTOHelp.chm&&指定帮助文件SETCONSOLEONSETDATEANSISETCENTURYONSETSAFETYOFFSETSTATUSBARONSETCOLORTOSETHOURSTO24SETS

8、YSMENUOFFSETNOTIFYOFF&&将所有的结果输出到Vfp主窗口或活动的用户自定义窗口中&&指定日期表达式的显示格式为yy.mm.dd&&指定日期中的年为4位数&&指定在改写已有文件时不显示对话框&&打开VFP状态栏&&设置颜色为默认状态&&关闭系统菜单SETNOTIFYCURSOROFF&&不在状态栏中显示数据信息CLEARCLEARALLWITH_Screen&&清除主窗口&&清除变量&&设置VFP主窗口

9、为不可见.WindowState=1.Visible=.F.ENDWITHPUBLICfrmbegin,frmtools,frmwen1&&定义表单名称全局变量DOFORMfrmBeginNAMEfrmbegin&&运行主表单BeginWITHfrmbegin&&设置主表单为可见、最大化、标题.Visible=.T.Closable=.f.ControlBox=.T.MaxButton=.T.MinButton=.T.Movable=.T.Top=0.Left=0.Caption="自制主表单调用菜单及工具栏实例"ENDWITHDOFORMfrmToolsNAMEfrmTools&&打开工具栏SETMARKOFBAR1