三。例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设置不同的颜色,就可以产生立体字的效果。
编辑推荐:
计算机等级考试:二级VFP机试汇总
2010年全国计算机等级考试二级VFP习题及答案汇总
计算机等级考试二级VFP考前密卷及答案
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。