2015年计算机二级VFP考试基础教程（34）-计算机等级考试-计算机-珠峰网 www.my8848.com

2015年计算机二级VFP考试基础教程（34）

发布时间：2010/11/27 23:18:51 来源：城市学习网编辑：ziteng

　　一.标签控件用于显示文本,一般用于显示提示信息.显示文本的格式由标签的属性设置.常用属性见下表:

　　二。例1:

　　1.新建一个表单，表单中添加三个命令按钮commadn1～command3,一个标签控件label1,分别设置三个命令按钮的caption属性值为"显示1","显示2"和"隐藏",如图17

　　2.添加事件代码：

　　*表单的init事件：

　　thisform.autocenter=.t.

　　thisform.caption="标签控件演示"

　　thisform.label1.autosize=.t.

　　thisform.label1.visible=.f.

　　*"显示1"命令按钮的click事件：

　　thisform.label1.forecolor=rgb(0,255,0)

　　thisform.label1.visible=.t.

　　thisform.label1.caption="你好"

　　thisform.label1.fontsize=10

　　*"显示2"命令按钮的click事件：

　　thisform.label1.forecolor=rgb(255,0,0)

　　thisform.label1.visible=.t.

　　thisform.label1.caption="hello"

　　thisform.label1.fontsize=18

　　*"隐藏"命令按钮的click事件：

　　thisform.label1.visible=.t.

　　3.保存并运行该表单，分别单击三个命令按钮，观察效果 [NextPage] 　三。例2:在屏幕上移动的字幕

　　1.新建一个表单，在表单上添加一个标签label1,设置该标签的属性如下：

　　caption="大家好"

　　fontname="楷体_GB2312"

　　fontbold=.t.

　　forecolor=rgb(255,0,0)

　　alignment=2

　　2.编写事件代码：

　　*标签label1的click事件代码如下：

　　do while .t.

　　for i=thisform.width step 10

　　this.left=i

　　=inkey(1) &&延时1秒

　　next i

　　enddo

　　3.保存并运行该表单，单击标签控件，观察效果。

　　注意：此程序运行后，必须按ctrl+alt+del终止vfp才能退出去，想想为什么?

　　四。用标签产生特殊效果的方法：

　　1.字排多行：在需换行的地方加chr(13)回车符，例如caption="你"+chr(13)+"好"

　　2.改变字的方向：设fontname属性为带@的字体名。

　　3.字从小到大：用一个循环不断改变标签的fontsize,同时调整top和left属性，每次增加一个值，直到最大时停止：this.top=thisform.height/2-this.fontsize/2

　　4.立体字：设计两个标签，将另一个标签的相对位置略加移动，forecolor设置不同的颜色，就可以产生立体字的效果。