vfp自制主菜单调用菜单及工具栏PAGE５/NUMPAGES6自制主菜单调用菜单与工具栏自制主菜单调用菜单与工具栏2011/11/5自制主菜单调用菜单与工具栏建立项目mainmenu建立菜单menu1.在项目中新建菜单menu2.文件和查看子菜单如图,其他的忽略不在说明,主要讲功能的实现：3.制作好菜单后,点击"显示"菜单选择"常规选项",勾选顶层表单复选框,确定.如图：点击"菜单"菜单选择"生成",生成一个同名的菜单,确定.如图：建立类库libs,派生于toolbar,建立工具栏.如图Libs包含〔mand1、mand2等按钮〕...
PAGE５/NUMPAGES6自制主菜单调用菜单与工具栏自制主菜单调用菜单与工具栏2011/11/5自制主菜单调用菜单与工具栏建立项目mainmenu建立菜单menu1.在项目中新建菜单menu2.文件和查看子菜单如图,其他的忽略不在说明,主要讲功能的实现：3.制作好菜单后,点击"显示"菜单选择"常规选项",勾选顶层表单复选框,确定.如图：点击"菜单"菜单选择"生成",生成一个同名的菜单,确定.如图：建立类库libs,派生于toolbar,建立工具栏.如图Libs包含〔mand1、mand2等按钮〕Libs.initDECLAREINTEGERShellExecuteINshell32.DLLINTEGERHWND,STRING,;STRINGlpszFile,STRING,STRING,INTEGERLibs.UndockcleadllsLibs.caption工具栏Libs.ControlBox假Libs.Enabled真Libs.ShowWindow1-最上层表单mand1.clickDOFORMfrmwen1建立表单建立调用工具栏的表单frmtools,建立表单集formset表单集formset<包含表单frmtools>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.NameFrmTools建立主表单frmbegin,主表单的大部分属性在main中程序中.表单frmbegin<包含一个退出按钮>Frmbegin.initDOmenu.mprWITHthis,.t.&&调用主菜单Frmbegin.unloadCLOSEALLCLEAREVENTSQuitFrmbegin.Caption无Frmbegin.Closable假Frmbegin.NameFrmbeginFrmbegin.ShowWindow2-作为顶层表单Frmbegin.WindowType0-无模式退出按钮.clickThisform.release建立"文件1"按钮所调用的表单frmwen1<主要用于说明程序的功能,没有实用性>表单frmwen1<包含一个退出按钮>Frmwen1.loadSETSKIPOFBAR1OF文件.T.IFWEXIST<"frmTools">frmTools.Mybarmand1.Enabled=.F.ENDIFFrmwen1.unloadSETSKIPOFBAR1OF文件.F.IFWEXIST<"frmTools">frmTools.Mybarmand1.Enabled=.T.ENDIFFrmwen1.AutoCenter真Frmwen1.Closable假Frmwen1.NameFrmwen1Frmwen1.MaxButton假Frmwen1.MinButton假Frmwen1.ShowWindow1-在顶层表单中Frmwen1.WindowType0-无模式*退出按钮.clickThisform.release*一定要设置为无模式,否则工具栏会出问题.四、建立程序1.建立工具栏程序gjxzIFWEXIST<"frmTools">RELEASEWINDOWSfrmToolsELSEDOFORMfrmToolsNAMEfrmToolsIFWEXIST<"frmwen1">frmTools.Mybarmand1.Enabled=.F.ENDIFENDIFSETMARKOFBAR1OF查看TOWEXIST<"frmTools">2.建立主程序mainSETTALKOFF&&关闭命令显示SETESCAPEOFF&&禁止运行的程序在按ESC键后被中断SETEXCLUSIVEOFF&&允许网络上的任何用户共享和修改网络上打开的表SETHELPON&&当按下F1键或在命令窗口中执行HELP命令时,显示帮助窗口*SETHELPTOHelp.chm&&指定帮助文件SETCONSOLEON&&将所有的结果输出到vfp主窗口或活动的用户自定义窗口中SETDATEANSI&&指定日期表达式的显示格式为SETCENTURYON&&指定日期中的年为4位数SETSAFETYOFF&&指定在改写已有文件时不显示对话框SETSTATUSBARON&&打开VFP状态栏SETCOLORTO&&设置颜色为默认状态SETHOURSTO24SETSYSMENUOFF&&关闭系统菜单SETNOTIFYOFFSETNOTIFYCURSOROFF&&不在状态栏中显示数据信息CLEAR&&清除主窗口CLEARALL&&清除变量WITH_Screen&&设置VFP主窗口为不可见.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&&打开工具栏SETMARKOFBAR1OF²é¿´TOWEXIST<"frmTools">READEVENTS*****以下为程序设计时使用的,就不用总是要打开VFP程序了！！！ONSHUTDOWNWITH_Screen&&设置VFP主窗口.WindowState=1.Visible=.t.ENDWITH
本文档为【vfp自制主菜单调用菜单及工具栏】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483