模拟VB控件数组操作标签控件

1、新建表单，将其AutoCenter属性值设置为.t.，保存为“表单1.scx”。

2、向表单上添加5个标签控件label1～label5，将它们的caption属性值依次设置为“编”、“程”、“入”、“门”、“网”。

3、向表单上添加一个命令按钮command1，将其caption属性值设置为“显示字符”。

4、适当调整各控件的位置

5、、表单的Activate事件代码：

public top,nlocal fs,fb,fcn=1top=thisform.label1.topfor i=1 to 5    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)+".top"if thisform.&t<=top-50  thisform.&t=top  n=n+1  if n=6     n=1     this.enabled=.f.     messagebox("字符已经全部显示完毕!")     return  endifendif

7、运行“表单1.scx”。

本例代码在Win2003+VFP6.0环境下调试通过。