vfp自制主菜单调用菜单及工具栏.docx
- 文档编号:1869919
- 上传时间:2022-10-24
- 格式:DOCX
- 页数:8
- 大小:125.64KB
vfp自制主菜单调用菜单及工具栏.docx
《vfp自制主菜单调用菜单及工具栏.docx》由会员分享,可在线阅读,更多相关《vfp自制主菜单调用菜单及工具栏.docx(8页珍藏版)》请在冰豆网上搜索。
vfp自制主菜单调用菜单及工具栏
vfp自制主菜单调用菜单及工具栏
自制主菜单调用菜单及工具栏
自制主菜单
调用菜单及工具栏
自制主菜单调用菜单及工具栏
一、建立项目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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vfp 自制 主菜 调用 菜单 工具栏