Runtime dim af classes - kan det lade sige gøre ?

Dim x(100) As MyClass

x(0) = New MyClass

Prøv og kig lidt på dette eksempel:

Imports System
Imports System.Threading

Public Class T
    Private Shared rng As Random = New Random
    Private n As Integer
    Public Sub New()
        n = 0
    End Sub
    Public Sub Run()
        While True
            Thread.Sleep(rng.Next(100))
            n = n + 1
        End While
    End Sub
    Public ReadOnly Property NN As Integer
        Get
            Return n
        End Get
    End Property
End Class

Class MainClass
    Public Shared Sub Main(ByVal args As String())
        Dim t(3) As T
        Dim i As Integer
        For i = 0 To t.Length-1
            t(i) = New T
        Next
        For i = 0 To t.Length-1
            Call (New Thread (New ThreadStart (AddressOf t(i).Run))).Start
        Next
        While True
            For i = 0 To t.Length-1
                Console.Write(" " & t(i).NN)
            Next
            Console.WriteLine
            Thread.Sleep(1000)
        End While
    End Sub
End Class

Lukke tid ?

Hej Arne

Tak for det...