vfp自制主菜单调用菜单及工具栏文档格式.docx
- 文档编号:14789966
- 上传时间:2022-10-24
- 格式:DOCX
- 页数:8
- 大小:125.64KB
vfp自制主菜单调用菜单及工具栏文档格式.docx
《vfp自制主菜单调用菜单及工具栏文档格式.docx》由会员分享,可在线阅读,更多相关《vfp自制主菜单调用菜单及工具栏文档格式.docx(8页珍藏版)》请在冰豆网上搜索。
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.
frmTools.Mmand1.Enabled=.T.
Frmwen1.AutoCenter
Frmwen1.Closable
Frmwen1.Name
Frmwen1
Frmwen1.MaxButton
Frmwen1.MinButton
Frmwen1.ShowWindow
Frmwen1.WindowType
0-无模式*
*一定要设置为无模式,否则工具栏会出问题。
四、建立程序
1.建立工具栏程序gjxz
RELEASEWINDOWSfrmTools
ELSE
DOFORMfrmToolsNAMEfrmTools
IFWEXIST("
frmwen1"
frmTools.Mmand1.Enabled=.F.
ENDIF
SETMARKOFBAR1OF查看TOWEXIST("
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("
READEVENTS
*****以下为程序设计时使用的,就不用总是要打开VFP程序了!
!
ONSHUTDOWN
设置VFP主窗口
.Visible=.t.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vfp 自制 主菜 调用 菜单 工具栏