欢迎来到天天文库
浏览记录
ID:58911739
大小:157.50 KB
页数:6页
时间:2020-10-26
《vfp自制主菜单调用菜单及工具栏.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、自制主菜单调用菜单及工具栏自制主菜单调用菜单及工具栏2011/11/5自制主菜单调用菜单及工具栏一、建立项目mainmenu一、建立菜单menu1.在项目中新建菜单menu2.文件和查看子菜单如图,其他的忽略不在说明,主要讲功能的实现:3.制作好菜单后,点击“显示”菜单选择“常规选项”,勾选顶层表单复选框,确定。如图:点击“菜单”菜单选择“生成”,生成一个同名的菜单,确定。如图:一、建立类库libs,派生于toolbar,建立工具栏。如图Libs包含(command1、command2等按钮)Libs.initDECLAREINTEG
2、ERShellExecuteINshell32.DLLINTEGERHWND,STRING,;STRINGlpszFile,STRING,STRING,INTEGERLibs.UndockcleadllsLibs.caption工具栏Libs.ControlBox假Libs.Enabled真Libs.ShowWindow1-最上层表单Command1.clickDOFORMfrmwen1一、建立表单1.建立调用工具栏的表单frmtools,建立表单集formset表单集formset(包含表单frmtools)Formset.init
3、SETCLASSLIBTOLibsADDITIVE&&打开包含工具栏的类库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.visi
4、ble假FrmTools.NameFrmTools2.建立主表单frmbegin,主表单的大部分属性在main中程序中。表单frmbegin(包含一个退出按钮)Frmbegin.initDOmenu.mprWITHthis,.t.&&调用主菜单Frmbegin.unloadCLOSEALLCLEAREVENTSQuitFrmbegin.Caption无Frmbegin.Closable假Frmbegin.NameFrmbeginFrmbegin.ShowWindow2-作为顶层表单Frmbegin.WindowType0-无模式退出按
5、钮.clickThisform.release1.建立“文件1”按钮所调用的表单frmwen1(主要用于说明程序的功能,没有实用性)表单frmwen1(包含一个退出按钮)Frmwen1.loadSETSKIPOFBAR1OF文件.T.IFWEXIST("frmTools")frmTools.Mybar.command1.Enabled=.F.ENDIFFrmwen1.unloadSETSKIPOFBAR1OF文件.F.IFWEXIST("frmTools")frmTools.Mybar.command1.Enabled=.T.ENDI
6、FFrmwen1.AutoCenter真Frmwen1.Closable假Frmwen1.NameFrmwen1Frmwen1.MaxButton假Frmwen1.MinButton假Frmwen1.ShowWindow1-在顶层表单中Frmwen1.WindowType0-无模式*退出按钮.clickThisform.release*一定要设置为无模式,否则工具栏会出问题。四、建立程序1.建立工具栏程序gjxzIFWEXIST("frmTools")RELEASEWINDOWSfrmToolsELSEDOFORMfrmToolsNA
7、MEfrmToolsIFWEXIST("frmwen1")frmTools.Mybar.command1.Enabled=.F.ENDIFENDIFSETMARKOFBAR1OF查看TOWEXIST("frmTools")2.建立主程序mainSETTALKOFF&&关闭命令显示SETESCAPEOFF&&禁止运行的程序在按ESC键后被中断SETEXCLUSIVEOFF&&允许网络上的任何用户共享和修改网络上打开的表SETHELPON&&当按下F1键或在命令窗口中执行HELP命令时,显示帮助窗口*SETHELPTOHelp.chm&&
8、指定帮助文件SETCONSOLEON&&将所有的结果输出到vfp主窗口或活动的用户自定义窗口中SETDATEANSI&&指定日期表达式的显示格式为yy.mm.ddSETCENTURYON&&指定日期中的年为4位数SETS
此文档下载收益归作者所有