Question

vb创建label控件组，用代码，不用复制黏贴。

（是不是要先添加什么控件？）label控件组 能不能取名?(举例)，调用其中一个控件的长宽语句怎么写？

Answer 1

Dim WithEvents label(10) As Lable
Private Sub Command1_Click()
For i= 0 to 9
Set label(i) = Me.Controls.Add("VB.Label", "label"&i)'动态创建控件
With label(i)'为控件属性赋值
.Left = 0
.Top = 0
.Visible = True
End With
Next
End Sub

以上代码是添加Label控件数组的。

追问

　　我稍微改了一下，给后人参考
Dim label(10) As label
　　For i = 0 To 9
　　Set label(i) = Me.Controls.Add("VB.Label", "label" & i)
　　With label(i)
　　.Left = (i) * 1000
　　.Top = i * 100
　　.Width = i * 100
　　.Visible = True
　　.Caption = i
　　End With
　　Next

追答

谢谢你的采纳。