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

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

程序通用部分

PAGE

PAGE１

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

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

自制主菜单

调用菜单及工具栏

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

建立项目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

建立表单

建立调用工具栏的表单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

建立主表单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

建立“文件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