vfp自制主菜单调用菜单及工具栏.docx
《vfp自制主菜单调用菜单及工具栏.docx》由会员分享，可在线阅读，更多相关《vfp自制主菜单调用菜单及工具栏.docx（9页珍藏版）》请在冰点文库上搜索。
vfp自制主菜单调用菜单及工具栏
vfp自制主菜单调用菜单及工具栏
2011/11/5
自制主菜单调用菜单及工具栏
一、建立项目mainmenu
二、建立菜单menu
1.在项目中新建菜单menu
2.文件和查看子菜单如图，其他的忽略不在说明，主要讲功能的实现：
3.制作好菜单后，点击“显示”菜单选择“常规选项”，勾选顶层表单复选框，确定。
如图：
点击“菜单”菜单选择“生成”，生成一个同名的菜单，确定。
如图：
三、建立类库libs，派生于toolbar,建立工具栏。
如图
Libs包含（command1、command2等按钮）
Libs.init
DECLAREINTEGERShellExecuteINshell32.DLLINTEGERHWND,STRING,;
STRINGlpszFile,STRING,STRING,INTEGER
Libs.Undock
cleadlls
Libs.caption
工具栏
Libs.ControlBox
假
Libs.Enabled
真
Libs.ShowWindow
1-最上层表单
Command1.click
DOFORMfrmwen1
四、建立表单
1.建立调用工具栏的表单frmtools,建立表单集formset
表单集formset（包含表单frmtools）
Formset.init
SETCLASSLIBTOLibsADDITIVE&&打开包含工具栏的类库
This.AddObject（"mybar","libs"）&&建立对象
This.mybar.Show&&显示工具栏对象This.mybar.Dock（0）&&靠窗口上方停靠
Formset.AutoRelease
真
Formset.Name
Formset
Formset.visible
假
FrmTools.Caption
无
FrmTools.Desktop
假
FrmTools.MDIForm
真
FrmTools.ShowWindow
1-在顶层表单中
FrmTools.visible
假
FrmTools.Name
FrmTools
2.建立主表单frmbegin，主表单的大部分属性在main中程序中。
表单frmbegin（包含一个退出按钮）
Frmbegin.init
DOmenu.mprWITHthis,.t.&&调用主菜单
Frmbegin.unload
CLOSEALL
CLEAREVENTS
Quit
Frmbegin.Caption
无
Frmbegin.Closable
假
Frmbegin.Name
Frmbegin
Frmbegin.ShowWindow
2-作为顶层表单
Frmbegin.WindowType
0-无模式
退出按钮.click
Thisform.release
3.建立“文件1”按钮所调用的表单frmwen1（主要用于说明程序的功能，没有实用性）
表单frmwen1（包含一个退出按钮）
Frmwen1.load
SETSKIPOFBAR1OF文件.T.
IFWEXIST（"frmTools"）
frmTools.Mmand1.Enabled=.F.
ENDIF
Frmwen1.unload
SETSKIPOFBAR1OF文件.F.
IFWEXIST（"frmTools"）
frmTools.Mmand1.Enabled=.T.
ENDIF
Frmwen1.AutoCenter
真
Frmwen1.Closable
假
Frmwen1.Name
Frmwen1
Frmwen1.MaxButton
假
Frmwen1.MinButton
假
Frmwen1.ShowWindow
1-在顶层表单中
Frmwen1.WindowType
0-无模式*
退出按钮.click
Thisform.release
*一定要设置为无模式，否则工具栏会出问题。
四、建立程序
1.建立工具栏程序gjxz
IFWEXIST（"frmTools"）
RELEASEWINDOWSfrmTools
ELSE
DOFORMfrmToolsNAMEfrmTools
IFWEXIST（"frmwen1"）
frmTools.Mmand1.Enabled=.F.
ENDIF
ENDIF
SETMARKOFBAR1OF查看TOWEXIST（"frmTools"）
2.建立主程序main
SETTALKOFF&&关闭命令显示
SETESCAPEOFF&&禁止运行的程序在按ESC键后被中断
SETEXCLUSIVEOFF&&允许网络上的任何用户共享和修改网络上打开的表
SETHELPON&&当按下F1键或在命令窗口中执行HELP命令时，显示帮助窗口
*SETHELPTOHelp.chm&&指定帮助文件
SETCONSOLEON&&将所有的结果输出到vfp主窗口或活动的用户自定义窗口中
SETDATEANSI&&指定日期表达式的显示格式为yy.mm.dd
SETCENTURYON&&指定日期中的年为4位数
SETSAFETYOFF&&指定在改写已有文件时不显示对话框
SETSTATUSBARON&&打开VFP状态栏
SETCOLORTO&&设置颜色为默认状态
SETHOURSTO24
SETSYSMENUOFF&&关闭系统菜单
SETNOTIFYOFF
SETNOTIFYCURSOROFF&&不在状态栏中显示数据信息
CLEAR&&清除主窗口
CLEARALL&&清除变量
WITH_Screen&&设置VFP主窗口为不可见
.WindowState=1
.Visible=.F.
ENDWITH
PUBLICfrmbegin,frmtools,frmwen1&&定义表单名称全局变量
DOFORMfrmBeginNAMEfrmbegin&&运行主表单Begin
WITHfrmbegin&&设置主表单为可见、最大化、标题
.Visible=.T.
.Closable=.f.
.ControlBox=.T.
.MaxButton=.T.
.MinButton=.T.
.Movable=.T.
.Top=0
.Left=0
.Caption="自制主表单调用菜单及工具栏实例"
ENDWITH
DOFORMfrmToolsNAMEfrmTools&&打开工具栏
SETMARKOFBAR1OF²é¿´TOWEXIST（"frmTools"）
READEVENTS
*****以下为程序设计时使用的，就不用总是要打开VFP程序了！
！
！
ONSHUTDOWN
WITH_Screen&&设置VFP主窗口
.WindowState=1
.Visible=.t.
ENDWITH
升级会员 