时间戳

首页 > 解决方案 > 跨类和表单共享变量

vb.net - 跨类和表单共享变量

问题描述

我有一个名为 DataStorage 的类，它存储我在程序中使用的所有公开声明的变量。我的主类从 DataStorage 调用一个公共数组并用值填充它。然后主类调用一个窗口窗体并用数组中的值填充其上的文本框。但是，当我运行程序时，表单会出现空白文本框。我不明白为什么会这样。我还尝试从表单的加载函数而不是主类中填充文本框。我调试并单步执行了我的代码，主类用值很好地填充了数组。但是当表单被调用时，我开始逐步执​​行代码来填充文本框，它说数组等于没有。如果数组存储在主类和表单调用的单独类中，为什么主类和表单之间的值设置为空？这是我的代码的样子：

Public Class Main
    Private ds As New DataStorage
    Public Sub Test()
        For i = 0 to 2
            ds.Info(i) = "Hello"
        Next
        Form1.ShowDialog()
    End Sub
End Class

Public Class DataStorage
    Public Info() As String
End Class

Public Class Form1
Private ds As New DataStorage
Private Sub Form1_Load(sender As Object, e As EventAgrs) Handles MyBase.Load
    Textbox1.Text = ds.Info(0)
    Textbox2.Text = ds.Info(1)
    Textbox3.Text = ds.Info(2)
End Sub

我只是把它叫做Form1；该程序从主类中的子测试开始。我只需要一种方法来获得任何类或表单都可以访问的变量/数组，并且除非我告诉它，否则不要更改值或设置为 null。

标签： vb.net

解决方案

在尝试填充数组之前，您必须为数组指定一个大小。

Public Class TestArray

    Private ds As New DataStorage

    Private Sub TestArray_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FillArray()
        TextBox1.Text = ds.Info(0)
        TextBox2.Text = ds.Info(1)
        TextBox3.Text = ds.Info(2)
    End Sub

    Public Sub FillArray()
        For i = 0 To 2
            ds.Info(i) = "Hello"
        Next
    End Sub
End Class

Public Class DataStorage
    Public Info(2) As String
End Class

如果您不想给出大小，请使用 List(Of T)

Public Class TestArray

    Private ds As New DataStorage

    Private Sub TestArray_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FillList()
        TextBox1.Text = ds.Info(0)
        TextBox2.Text = ds.Info(1)
        TextBox3.Text = ds.Info(2)
    End Sub

    Public Sub FillList()
        For i = 0 To 2
            ds.Info.Add("Hello")
        Next
    End Sub
End Class

Public Class DataStorage
    Public Info As New List(Of String)
End Class

推荐阅读