What is “开始菜单”？这应该是一句废话。因为只要是使用Windows系统的，都知道单击了任务栏左侧的“开始”按钮就会出现这个菜单，并且可能每天都会使用这个菜单。

那么用vfp编写的软件能否不使用菜单，而是把软件菜单的功能项都放到这样一种类似于Windows系统的“开始菜单”里呢？可以的，只要你喜欢。

今天我们用列表框控件做个简单的“开始菜单”，运行时单击了表单的“开始”按钮后如下图：

此时就可以执行这个“开始菜单”中的各个功能项了，比如单击了“显示背景”后表单变成下面的这个样子：

另外在上个例子看实例学VFP：Timer控件实例-动画中标签是上下运动的，本例中的动画是左右运动的。在vfp基础教程-列表框控件(listbox)一文中已经给出了列表框控件的常用属性和方法，本例不再重复这些内容了，只给出例子的制作过程和代码。

制作步骤：

一、新建表单,将其width和height属性值分别设置为290和250，保存为“表单1.scx”。

二、向表单添加控件并设置属性：

1、在表单左下角添加一个命令按钮，将其caption属性值设置为“开始”。

2、在命令按钮的上方添加一个列表框控件List1，用鼠标拖动将它的宽度调成和命令按钮一样宽，height属性值设置为85。

3、添加一个标签控件label1，并将其caption属性值设为“编程入门网”，forecolor属性值设为“255,0,0”，AutoSize属性值设为.t.，FontSize属性值设为12，FontBold属性值设为.t.。

4、添加一个timer控件，interval属性值采用默认的0。

以上步骤完成后的表单设计器如下图：

三、添加事件代码：

1、表单的Activate事件代码：

this.list1.additem("显示动画")
this.list1.additem("关闭动画")
this.list1.additem("显示背景")
this.list1.additem("去掉背景")
this.list1.additem("退出系统")

2、表单的MouseMove事件代码：

LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.list1.visible=.f.

3.表单的init事件代码：

cc=sys(16)
start=at(":",cc)-1
cend=rat("\",cc,1)
set default to (substr(cc,start,cend-start+1))
thisform.list1.visible=.f.
thisform.label1.visible=.f.

4、命令按钮“开始”的click事件代码：thisform.list1.visible=.t.

5、列表框控件List1的click事件代码：

do case this.listindex
   case this.selected(5)  &&退出系统
         thisform.release
   case this.selected(4)  &&去掉背景
         thisform.picture=""
        this.visible=.f.
   case this.selected(3)  &&显示背景
         thisform.picture="风景.jpg"
        this.visible=.f.
   case this.selected(2)  &&关闭动画
         thisform.timer1.interval=0
        thisform.label1.visible=.f.
        this.visible=.f.
   case this.selected(1)  &&显示动画
         thisform.timer1.interval=40
        thisform.label1.backstyle=0
        thisform.label1.visible=.t.
        this.visible=.f.
endcase

6、计时器控件timer1的timer事件代码：

if thisform.label1.left+thisform.label1.width>0
   thisform.label1.left=thisform.label1.left-3
else
   thisform.label1.left=thisform.width
endif

四、运行“表单1.scx”。

本例代码在Win2003+VFP6.0环境下调试通过。

查看全套“菜鸟也学VFP”教程