各大哥 想问一个问题关于循环的      
    如何可以把多个label1，label2...用循环的形式给他的caption赋值a？
    For i = 1 To 13
    labeli .Alignment = 2  '字体以中央对齐 i两边加&都不行
    texti.Alignment = 2
Next i的写法有问题，大家知道这个i的书写形式不？

建立label集

建立控件数组

数组就可以了
先添加一个label控件然后复制

首先把label1、text1复制成数组
for i=1 to 13
  label1(i).alignment=2
  text1(i).alignment =2
next
这样你试下

[[it] 本帖最后由 zougonghua 于 2008-4-12 10:56 编辑 [/it]]