一.标签控件用于显示文本,一般用于显示提示信息.显示文本的格式由标签的属性设置.常用属性见下表:
属性 | 功能 |
caption | 显示文本内容,最多允许256个字符 |
autosize | 指定标签是否可随其中的文本的大小而改变 |
backstyle | 指定标签的背景是否透明:0-透明,可看到标签后面的东西;1-不透明,背景由标签设置 |
alignment | 指定文本在标签中的对齐方式 0-左 1-右 2-居中 |
forecolor | 指定标签中文本的颜色 |
fontsize | 标签中文本的字号大小 |
fontname | 标签中文本的字体 |
fontbold | 杯签中文本是否加粗 |
left | 标签左边界与表单左边界的距离 |
width | 设定对象的宽度。 |
visible | 指定标签是否可见 |
二。例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.保存并运行该表单,分别单击三个命令按钮,观察效果
Visual FoxPro基础教程完整版三。例2:在屏幕上移动的字幕
1.新建一个表单,在表单上添加一个标签label1,设置该标签的属性如下:
caption="大家好"
fontname="楷体_GB2312"
fontbold=.t.
forecolor=rgb(255,0,0)
alignment=22.编写事件代码:
*标签label1的click事件代码如下:
do while .t.
for i=thisform.width step 10
this.left=i
=inkey(1) &&延时1秒
next i
enddo3.保存并运行该表单,单击标签控件,观察效果。
注意:此程序运行后,必须按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设置不同的颜色,就可以产生立体字的效果。Visual FoxPro基础教程完整版生活不易,码农辛苦
如果您觉得本网站对您的学习有所帮助,可以手机扫描二维码进行捐赠