当前位置: 首页 > 编程语言 > vfp > 正文

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

时间:2009-03-16 www.bianceng.cn 老马

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”教程