初始化阵列外部子程序

Question

的我有以下的一个模块中声明（简化的举例）：

Public Structure ActiveDeviceInfo 
    Dim InStream As String 
    Dim InMsg() As String 
    Dim OutMsg() As String 

    Public Sub Initialize() 
     ReDim InMsg(30) 
     ReDim OutMsg(30) 
    End Sub 
End Structure 

然后右后，我创建该模块的实例。我需要它具有整个模块的范围，而不是单独的子例程。

Public ActiveRelay As New ActiveDeviceInfo 
ActiveRelay.Initialize() 

我得到错误的初始化调用“预计宣言”。
有关如何解决此问题的任何想法？

Answer 1

你可以在静态构造函数添加它的模块：

Public Module Module1 
    Public ActiveRelay As New ActiveDeviceInfo 

    Sub New() 
     ActiveRelay.Initialize() 
    End Sub 

    'Struct Here 
End Module 

Answer 2

模块定义只是里面我会把：

Dim ActiveRelay As New ActiveDeviceInfo 

然后在单独的子程序只要致电：

ActiveRelay.Initialize() 

如果你想调用初始化一个对象被创建时，一个可以切换到一个具有构造函数的类。例如：

Dim ActiveRelay As New ActiveDeviceInfo 

Public Class ActiveDeviceInfo 
    Dim InStream As String 
    Dim InMsg() As String 
    Dim OutMsg() As String 

    Public Sub Initialize() 
     ReDim InMsg(30) 
     ReDim OutMsg(30) 
    End Sub 

    Sub New() 
     Initialize() 
    End Sub 
End Class 

这会运行New（）w当这个类被实例化时。