QQ网名大全

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

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控件数组的。

佚名
2024-06-17 03:51:40
最佳回答
类似问题(10)