看实例学VFP：用列表框控件做个“开始菜单”

看实例学VFP：用列表框控件做个“开始菜单”2009-03-16 www.bianceng.cn 老马What is “开始菜单”？这应该是一句废话。因为只要是使用Windows系统的，都知道单击了任务栏左侧的“开始”按钮就会出现这个菜单，并且可能每天都会使用这个菜单。

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

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

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

另外在上个例子中标签是上下运动的，本例中的动画是左右运动的。在一文中已经给出了列表框控件的常用属性和方法，本例不再重复这些内容了，只给出例子的制作过程和代码。

制作步骤：

一、新建表单,将其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=0thisform.label1.visible=.f.this.visible=.f. case this.selected（1）&&显示动画 thisform.timer1.interval=40thisform.label1.backstyle=0thisform.label1.visible=.t.this.visible=.f.endcase

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

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

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

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