2011年度计算机等级考试二级VFP基础教程(34)

会计考友

　一.标签控件用于显示文本,一般用于显示提示信息.显示文本的格式由标签的属性设置.常用属性见下表:　　二。例1:
　　1.新建一个表单，表单中添加三个命令按钮commadn1～command3,一个标签控件label1,分别设置三个命令按钮的caption属性值为"显示1","显示2"和"隐藏",如图17

, T4 W) Q9 j. U  s$ t　　2.添加事件代码：
% p$ q, C  l+ B# {  z　　*表单的init事件：
　　thisform.autocenter=.t.
　　thisform.caption="标签控件演示"
1 k/ p. e4 ?- s& ^9 m8 G' F. F　　thisform.label1.autosize=.t.
$ U- e% h. E1 ^- |. \/ W　　thisform.label1.visible=.f.
5 L2 ^: ]( B/ x9 j  \! ]　　*"显示1"命令按钮的click事件：
　　thisform.label1.forecolor=rgb(0,255,0)
　　thisform.label1.visible=.t.
0 d0 }( s" u% X, {1 T+ x" |　　thisform.label1.caption="你好"
  _  J5 W" }; I0 H3 z: G7 j　　thisform.label1.fontsize=10
　　*"显示2"命令按钮的click事件：
5 X2 }' E5 ^; S; u# k　　thisform.label1.forecolor=rgb(255,0,0)
' _, G* v& _( x' s1 P" E8 h! j　　thisform.label1.visible=.t.
! m  ~/ }: N) K5 p  }　　thisform.label1.caption="hello"
　　thisform.label1.fontsize=18
　　*"隐藏"命令按钮的click事件：
' Q/ p+ J( w/ K7 p/ t  D- Y7 \& J　　thisform.label1.visible=.t.
　　3.保存并运行该表单，分别单击三个命令按钮，观察效果

会计考友

三。例2:在屏幕上移动的字幕　　1.新建一个表单，在表单上添加一个标签label1,设置该标签的属性如下：
　　caption="大家好"
% o; k8 l6 `- C; c  A: N2 H6 S　　fontname="楷体_GB2312"
　　fontbold=.t.
% W$ y! _1 t1 I9 ?" I8 }/ H1 z　　forecolor=rgb(255,0,0)
　　alignment=2
　　2.编写事件代码：
8 u5 {$ \1 S9 p; m, l: G　　*标签label1的click事件代码如下：
- ?3 O. o9 k6 B$ I' W  o- G! K2 e　　do while .t.
　　for i=thisform.width step 10
  T' U5 j& l5 b　　this.left=i
- E! m9 l& h4 i+ a2 p& j* w$ `　　=inkey(1) &&延时1秒
( x5 T* c$ ^* ^0 r) P　　next i
　　enddo
0 M1 Z3 D1 f" t　　3.保存并运行该表单，单击标签控件，观察效果。
+ S' E4 j! a& M% e　　注意：此程序运行后，必须按ctrl+alt+del终止vfp才能退出去，想想为什么?
" f/ I6 z2 A; e0 E' x　　四。用标签产生特殊效果的方法：
　　1.字排多行：在需换行的地方加chr(13)回车符，例如caption="你"+chr(13)+"好"
　　2.改变字的方向：设fontname属性为带@的字体名。
　　3.字从小到大：用一个循环不断改变标签的fontsize,同时调整top和left属性，每次增加一个值，直到最大时停止：this.top=thisform.height/2-this.fontsize/2
+ d& F% j# ]9 q0 s( I4 |+ s　　4.立体字：设计两个标签，将另一个标签的相对位置略加移动，forecolor设置不同的颜色，就可以产生立体字的效果。