vfp自制主菜单调用菜单及工具栏

自制主菜单调用菜单及工具栏

自制主菜单

调用菜单及工具栏

2011/11/5

自制主菜单调用菜单及工具栏

一、建立项目mainmenu

二、建立菜单menu

1.在项目中新建菜单menu

2.文件和查看子菜单如图，其他的忽略不在说明，主要讲功能的实现：

3.制作好菜单后，点击“显示”菜单选择“常规选项”，勾选顶层表单复选框，确

定。如图：

点击“菜单”菜单选择“生成”，生成一个同名的菜单，确定。如图：

三、建立类库libs，派生于toolbar,建立工具栏。如图

2.建立主表单frmbegin，主表单的大部分属性在main中程序中。

四、建立程序

1.建立工具栏程序gjxz

IF WEXIST("frmTools")

RELEASE WINDOWS frmTools

ELSE

DO FORM frmTools NAME frmTools

IF WEXIST("frmwen1")

mand1.Enabled=.F.

ENDIF

ENDIF

SET MARK OF BAR 1 OF 查看TO WEXIST("frmTools")

2.建立主程序main

SET TALK OFF &&关闭命令显示

SET ESCAPE OFF &&禁止运行的程序在按ESC键后被中断

SET EXCLUSIVE OFF &&允许网络上的任何用户共享和修改网络上打开的表

SET HELP ON &&当按下F1键或在命令窗口中执行HELP命令时，显示帮助窗口*SET HELP TO Help.chm &&指定帮助文件

SET CONSOLE ON &&将所有的结果输出到vfp主窗口或活动的用户自定义窗口中SET DATE ANSI &&指定日期表达式的显示格式为yy.mm.dd

SET CENTURY ON &&指定日期中的年为4位数

SET SAFETY OFF &&指定在改写已有文件时不显示对话框

SET STATUS BAR ON &&打开VFP状态栏

SET COLOR TO &&设置颜色为默认状态

SET HOURS TO 24

SET SYSMENU OFF &&关闭系统菜单

SET NOTIFY OFF

SET NOTIFY CURSOR OFF &&不在状态栏中显示数据信息

CLEAR &&清除主窗口

CLEAR ALL &&清除变量

WITH _Screen &&设置VFP主窗口为不可见

.WindowState=1

.Visible=.F.

ENDWITH

PUBLIC frmbegin,frmtools,frmwen1 &&定义表单名称全局变量

DO FORM frmBegin NAME frmbegin &&运行主表单Begin

WITH frmbegin &&设置主表单为可见、最大化、标题

.Visible=.T.

.Closable=.f.

.ControlBox=.T.

.MaxButton=.T.

.MinButton=.T.

.Movable=.T.

.Top=0

.Left=0

.Caption="自制主表单调用菜单及工具栏实例"

ENDWITH

DO FORM frmTools NAME frmTools &&打开工具栏

SET MARK OF BAR 1 OF ²é¿´TO WEXIST("frmTools")

READ EVENTS

*****以下为程序设计时使用的，就不用总是要打开VFP程序了！！！

ON SHUTDOWN

WITH _Screen &&设置VFP主窗口

.WindowState=1

.Visible=.t.

ENDWITH