Question

VB中的label控件标号更改、、

我想用让Label标号自动累加，例如Label2.caption下一句自动到label3、、我试过labeln，n=一个整数，但是不可以。能不能让标号随意更改呢？

Answer 1

给你个参考代码
'窗体上先加一label控件，其index属性设置为0,Caption属性设置成★
Private Sub AddLabel(ByVal N As Integer, ByVal Cols As Integer)
For i = 1 To N '一共12个
Load Label1(i) '增加控件
Label1(i).Visible = True '
If i Mod Cols = 0 Then '4列，超过就换行
Label1(i).Top = Label1(i - 1).Top + 300 '换行后的高度
Label1(i).Left = Label1(0).Left '换行后第一的左边位置与第一个对齐
Else '没换行那些
Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width + 300 '
Label1(i).Top = Label1(i - 1).Top '
End If
Label1(i) = "★" '赋值
Next i
End Sub

Private Sub Form_Load() AddLabel 63, 8
End Sub

Answer 2

给你一个参考代码
形成第一它的索引属性设置为0，添加一个标签控件的Caption属性设置★

私人小AddLabel（BYVAL n为整数，BYVAL cols作为整数）<BR /对于i = 1到12

负载Label1的（I）'N'总

Label1的（I）可见= TRUE'

如果我国防部COLS = 0 4，添加控件比包

Label1的（I）= Label1的（I - 1）上衣+ 300'换行的高度

Label1的（i）留左“的左的位置和排列Label1的（0）
>其他“换行不换行的那些

Label1的（I）。左= Label1的（I - 1）。左+，LABEL1（I - 1）。宽度+ 300'

Label1的（I）。 = Label1的（I - 1）。史上最“

最后如

Label1的（I）=”★“的分配

接下来，我

END SUB

私人小组Form_Load（）AddLabel 63， 8
END SUB

Answer 3

将标签控件都设置同一个名称就可以了~~设置index属性 控件数组 你百度下就很清楚了