使用菜单设计器创建快捷菜单系统

11．1．3　使用菜单设计器创建快捷菜单系统

Windows程序中，在对象上单击鼠标右键便会出现关于这个对象的菜单操作。这个菜单给用户带来了极大的方便。在VFP中用户自己可以用快捷菜单设计器很方便地建立这样的快捷菜单。

快捷菜单设计器和普通菜单设计器从功能和外观上看并没有什么差别，只是所设计出来的菜单用途不同。

创建快捷菜单的操作步骤，用一例说明如下：

（1）按“新建”工具栏，在“新菜单”对话框中选择“快捷菜单”。

（2）在“菜单设计器”中输入第一个菜单项，菜单名称为“第一条记录”，“结果”框中选择“过程”，按“过程”右边的“创建”按钮，在出现的代码窗口中输入代码：

Go　Top

关闭代码窗口。

（3）在“菜单设计器”中输入第二个菜单项，菜单名称为“前一条记录”，“结果”框中选择“过程”，按“过程”右边的“创建”按钮，在出现的代码窗口中输入代码：

If　Not　Bof（）

Skip　–1

Endif

关闭代码窗口。

（4）在“菜单设计器”中输入第三个菜单项，菜单名称为“后一条记录”，在“结果”框中选择“过程”，按“过程”右边的“创建”按钮，在出现的代码窗口中输入代码：

If　not　eof（）

Skip

Endif

关闭代码窗口。

（5）在“菜单设计器”中输入第四个菜单项，菜单名称为“最后一条记录”，在“结果”框中选择“过程”，按“过程”右边的“创建”按钮，在出现的代码窗口中输入代码：

Go　Bottom

关闭代码窗口。

（6）关闭“菜单设计器”即可。

对于快捷菜单而言，在程序中其调用方法和普通菜单的调用方法并无不同，用户只需在程序中加入相同的语句“DO　menuname．mpr”即可打开，不同的只是菜单程序文件名。例如，要把上述的菜单kjmenu添加到一个按钮上，只要在该按钮的RightClick事件中添加命令：

Do　a：＼kjmenu．mpr

Thisform．Refresh

对于快捷菜单而言，用户还可将若干选顶的系统菜单项插入到现在的菜单中。此时用户只需单击“插入栏”按钮打开“插入系统菜单栏”对话框（参见图11－11），然后从中选择所需的菜单项，再单击“插入”按钮即可。

图11－11　“插入系统菜单栏”对话框