How to Initialise a Structure Array in a Dim Statement

[Charles Law]

Does anyone know if it is possible to initialise a structure array at
run-time, something like this:

<code>
Structure struct
Dim a As String
Dim b As Integer
Dim c As [Delegate]
End Structure

....

Dim st() As struct = {"1", 2, AddressOf Foo1}, _
{"2", 2, AddressOf Foo2}
</code>

I realise that this syntax is incorrect, but is there a syntax for this type
of initialisation?

TIA

Charles

 

[Imran Koradia]

Here's one way - you could provide a constructor to initialize the values of
the structure. Something like this:

Structure struct
Dim a As String
Dim b As Integer
Dim c As [Delegate]
Public Sub New(ByVal a As String, ByVal b As Integer, ByVal c As
[Delegate])
a = a
b = b
c = c
End Sub
End Structure

Then initialize the structures as:

Dim st() As Struct = {New Struct("1", 2, AddressOf foo1), _
New Struct("2", 2, AddressOf foo2)}


hope that helps..
Imran.

 

[Charles Law]

Hi Imran

Funnily enough, I have just been turning it over in my mind, and had
wondered if that might work. Thanks for confirming it. I suppose it is quite
elegant too, but I wonder if there is a way to do it without the New
keyword.

Charles

Here's one way - you could provide a constructor to initialize the values
of
the structure. Something like this:

Structure struct
Dim a As String
Dim b As Integer
Dim c As [Delegate]
Public Sub New(ByVal a As String, ByVal b As Integer, ByVal c As
[Delegate])
a = a
b = b
c = c
End Sub
End Structure

Then initialize the structures as:

Dim st() As Struct = {New Struct("1", 2, AddressOf foo1), _
New Struct("2", 2, AddressOf foo2)}


hope that helps..
Imran.

Does anyone know if it is possible to initialise a structure array at
run-time, something like this:

<code>
Structure struct
Dim a As String
Dim b As Integer
Dim c As [Delegate]
End Structure

...

Dim st() As struct = {"1", 2, AddressOf Foo1}, _
{"2", 2, AddressOf Foo2}
</code>

I realise that this syntax is incorrect, but is there a syntax for this type
of initialisation?

TIA

Charles