Vb.net VB:全局数组';预计申报';

Vb.net VB:全局数组';预计申报';,vb.net,Vb.net,我想制作一个全局数组,所有按钮都可以访问它。但我不知道怎么做 Module GlobalConstants Public strCDRack(0 To 2, 0 To 1) As String strCDRack(0, 0) = "Deftones" strCDRack(0, 1) = "Tool" strCDRack(0, 2) = "Disturbed" strCDRack(0, 0) = "Sticky Finger

我想制作一个全局数组,所有按钮都可以访问它。但我不知道怎么做

Module GlobalConstants
    Public strCDRack(0 To 2, 0 To 1) As String
        strCDRack(0, 0) = "Deftones"
        strCDRack(0, 1) = "Tool"
        strCDRack(0, 2) = "Disturbed"

        strCDRack(0, 0) = "Sticky Fingers"
        strCDRack(0, 1) = "Beggars Banquet"
        strCDRack(0, 2) = "Let It Bleed"


End Module
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Text = strCDRack(0, 1)
    End Sub
End Class
你还弄乱了文本的标记。您声明了数组
(0到2,0到1)
,但在第一个维度中仅使用了(0),而在第二个维度中超出了边界(0,1,2


请参见

您需要在代码块中初始化该内容,并且您可以在表单而不是模块中声明该内容,以便所有按钮都可以访问它。单击该按钮不会使textbox1显示任何内容??很抱歉,这是一个新问题。如果
TextBox1
位于表单1上,并且它是您唯一的表单;或者是启动形式,它应该可以工作。但是你也弄乱了数据存储的位置-参见编辑。
Public Class Form1
    Friend strCDRack(0 To 2, 0 To 1) As String   ' just declaring

    ' the error message `declaration expected` is telling you all that
    ' can be done at this level is to declare variables

    Sub Form Load...
        ' code to initialize the array or DO anything
        ' must be in a procedure
        strCDRack(0, 0) = "Deftones"
        strCDRack(1, 0) = "Tool"
        strCDRack(2, 0) = "Disturbed"

        strCDRack(0, 1) = "Sticky Fingers"
        strCDRack(1, 1) = "Beggars Banquet"
        strCDRack(2, 1) = "Let It Bleed"