大神们，求救VB.NET控件数组创建和使用

[the_this_2301]

为什么第一段程序能用，第二段却不能用呢？我是初学者。。。

Public Class Form1

Dim i(1) As Label

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
i(0) = Label1
i(1) = Label2
i(0).Text = "123"
i(1).Text = ""
End Sub
End Class
-----------------------------------------------------------------------------------------------------------------
Public Class Form1

Dim i() As Label = {Label1, Label2}

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
i(0).Text = "123"
i(1).Text = ""
End Sub
End Class

[健者天行]

这2句是给数组赋值，必须。 i(0) = Label1 i(1) = Label2

[the_this_2301]

不能想第二段那样赋值吗？

[the_this_2301]

引用 1 楼 leo2003 的回复:

这2句是给数组赋值，必须。 i(0) = Label1 i(1) = Label2

不能像第二段那样赋值吗？

[以专业开发人员为伍]

引用 5 楼 the_this_2301 的回复:

[quote=引用 4 楼 caozhy 的回复:] Dim i() As Label = {Label1, Label2} -> Private i() As Label = {Label1, Label2}

经过实测，用Private和用Dim一样，都是不能用[/quote]

Dim i() As Label = {Label1, Label1}

这个代码大概是 vb.net 2012 版或者更高版本才支持的。你可以查一下相关语法的 msdn 文档，看看什么版本才开始支持。

[健者天行]

[threenewbee]

Dim i() As Label = {Label1, Label2} -> Private i() As Label = {Label1, Label2}

[the_this_2301]

引用 4 楼 caozhy 的回复:

Dim i() As Label = {Label1, Label2} -> Private i() As Label = {Label1, Label2}

经过实测，用Private和用Dim一样，都是不能用

[健者天行]

引用 3 楼 the_this_2301 的回复:

[quote=引用 1 楼 leo2003 的回复:] 这2句是给数组赋值，必须。 i(0) = Label1 i(1) = Label2

不能像第二段那样赋值吗？ [/quote] 不好意思，我看漏了，第二段在定义时有赋值。 初始化赋值要定义为静态。 如：

        static Label lbl1;
        static Label lbl2;

        Label[] lbls = new Label[] { lbl1, lbl2 };

[qxy1547722058]

话说VBnet支持控件数组吗。ԅ(¯ㅂ¯ԅ)

[mjzxlmg]

	Dim Label(1) As Label
        For i As Integer = 0 To 1
            Label(i) = New Label
            With Label(i)
		.Name = "Label" & i
                .Top = 20
                .Left = LngLeft
                .Height = 14
                .Width = 50
                .TextAlign = ContentAlignment.MiddleCenter
                .ForeColor = Color.OrangeRed
                .TabIndex = i
                .Text =  "Label" & i
                GroupBox1.Controls.Add(Label(i))
            End With
            LngLeft += 195
        Next

[秋天之落叶]

同意8#建议，加上 i = New Label() {Label1, Label2} 即可 vs2015通过 Public Class Form1 Dim i() As Label = {Label1, Label2} Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click i = New Label() {Label1, Label2} i(0).Text = "123" i(1).Text = "" End Sub End Class