VB中有控件数组，使用它可以批量设置控件的属性，这个东西最直接的作用就是可以简化代码。今天我们在vfp中模拟VB控件数组，操作vfp中最基本的控件之一：标签控件(label)。
方法/步骤
1、新建表单，将其AutoCenter属性值设置为.t.，保存为“表单1.scx”。
2、向表单上添加5个标签控件label1～label5，将它们的caption属性值依次设置为“编”、“程”、“入”、“门”、“网”。
3、向表单上添加一个命令按钮command1，将其caption属性值设置为“显示字符”。
4、适当调整各控件的位置
5、、表撮劝丛食单的Activate事件代码：publictop,n localfs,fb,fc n=1 top=thisform.label1.t泠贾高框op fori=1to5 t="label"+str(i,1)+".top" fs="label"+str(i,1)+".fontsize" fb="label"+str(i,1)+".fontbold" fc="label"+str(i,1)+".forecolor" thisform.&t=-50&&依次把5个标签的top属性值设为-50，实际是把它们隐藏起来 thisform.&fs=12&&依次把5个标签的fontsize属性值设为12 thisform.&fb=.t.&&依次把5个标签的fontbold属性值设为.t. thisform.&fc=rgb(255,0,0)&&依次把5个标签的forecolor属性值设为rgb(255,0,0) endfor
6、命令按钮command1的click事件代码：t="挢旗扦渌;label"+str(n,1)+".t泠贾高框op" ifthisform.&t<=top-50 thisform.&t=top n=n+1 ifn=6 n=1 this.enabled=.f. messagebox("字符已经全部显示完毕!") return endif endif
7、运行“表单1.scx”。本例代码在Win2003+VFP6.0环境下调试通过。
