Question

请给下面程序中的Set a(b) = Form1.Controls.Add("VB.CommandButton", "cmdNew" & b) 这一句加上说明，谢

Dim b As Integer
Dim a() As CommandButton
Private Sub Command1_Click()

ReDim Preserve a(0 To b)

Set a(b) = Form1.Controls.Add("VB.CommandButton", "cmdNew" & b)
a(b).Move b * 50, b * 500, 1000, 300

a(b).Visible = True
a(b).Width = Command1.Width
a(b).Height = Command1.Height
a(b).Left = Me.Left
a(b).Caption = "第" & b + 1 & "个" & "按钮"
b = b + 1

End Sub

Answer 1

这是一个动态添加按钮的程序
你要的那一句里面 a(b)是一个“按钮控件”类型的数组，等号后面是对象初始化语句。
里面第一个.controls.add表示在form1中添加控件，括号里“vb.commandbutton”是控件类型的名字。“cmdNew”是新建控件的名字，后面带一个“&b”是附加在“cmdnew”后面的一个数字，比如说b=1时新建的控件的名字就是“cmdNew1”。
还有不明白的吗。。欢迎询问