四时宝库

在Visual Studio 2019中使用vb.net编小程序的时候，因为提醒窗体数量不定，设想着能创建窗体可变数组来设置提醒，代码如下：

Public frmtip() As Frmtips ‘初始化窗体可变数组

Private Sub LoadFrmTips（）

ReDim Preserve frmtip(2) ‘假设已定义可变数组frmtip(1)，重新定义frmtip(2)

frmtip2) = New Frmtipsfrmtip(2).Text = "提醒"

frmtip(2).Show()

End Sub

以上代码编译报错：引发的异常:“System.NullReferenceException”(位于 *.exe 中)未将对象引用设置到对象的实例。

经多次尝试，发现重新定义可变数组时需要把全部数组实例化才可以编译通过，代码如下：

Dim i As Integer

ReDim Preserve frmtip(2)

For i = 0 To 2

frmtip(i) = New Frmtips

frmtip(i).Text = "提醒"

frmtip(i).Show()Next