Hallo,
Nein, ein Visual Basic Express liegt es nicht. Die Compiler sind überall gleich
und Arrays werden von .NET erzeugt (sind also sogar sprachenunabhängig).
Es wird etwas nicht mit Deiner Initialisierung stimmen.
Wo werden die Arrays überhaupt deklariert:
In einer Klasse oder in einem Modul?
Stehen die Deklarationen zusammen oder sind sie verstreut?
Denn vermutlich werden die beiden einstelligen Arrays zu einem Zeitpunkt definiert,
wo Segmente den Wert 0 hat, was ein Array(0) ergibt.
Aber wie heißt es so schön:
Wenn man nicht mehr durch eine Klasse durchblickt sollte man sie aufteilen.
Zwei Vorschläge - je nach effektiver Nutzung mag der zweite der bessere sein oder nicht:
Entweder erstellst Du eine eigene Klasse für die Arrays, z. B.:
Public Class SegmenteCollection
Private Const SegmenteDefault As Integer = 64
Private _segmente As Integer
Private _reverenc() As Integer
Private _onTimeing() As Integer
Private _offTimeing() As Integer
Public Sub New()
Me.New(SegmenteDefault)
End Sub
Public Sub New(ByVal segmente As Integer)
Me.Resize(segmente)
End Sub
Public Property Segmente() As Integer
Get
Return Me._segmente
End Get
Set(ByVal value As Integer)
Me.Resize(value)
End Set
End Property
Private Sub Resize(ByVal segmente As Integer)
If segmente <= 0 Then
Throw New ArgumentOutOfRangeException()
End If
Me._segmente = segmente
ReDim Preserve _reverenc(segmente)
ReDim Preserve _onTimeing(segmente)
ReDim Preserve _offTimeing(segmente)
End Sub
Public ReadOnly Property Reverenc() As Integer()
Get
Return _reverenc
End Get
End Property
Public ReadOnly Property OnTimeing() As Integer()
Get
Return _onTimeing
End Get
End Property
Public ReadOnly Property OffTimeing() As Integer()
Get
Return _offTimeing
End Get
End Property
End Class
Ich habe die (denglischen) Variablen bis auf das überflüssige Array so gelassen.
Die Verwendung wäre dann in etwa:
Segmente.OffTimeing(0) = 4711
Segmente.OnTimeing(1) = 4712
Segmente.Reverenc(Segmente2.Segmente - 1) = 4713
Segmente.Segmente = 100 ' Neue Größe
Oder Du erstellst eine eigene Struktur/Klasse - was sich vor allem empfiehlt,
wenn die 3 Werte immer (häufig) zusammen verwendet werden:
Public Structure Segment
Private _reverence As Integer
Private _onTimeing As Integer
Private _offTimeing As Integer
Public Property Reverenc() As Integer
Get
Return Me._reverence
End Get
Set(ByVal value As Integer)
Me._reverence = value
End Set
End Property
Public Property OnTimeing() As Integer
Get
Return Me._onTimeing
End Get
Set(ByVal value As Integer)
Me._onTimeing = value
End Set
End Property
Public Property OffTimeing() As Integer
Get
Return Me._offTimeing
End Get
Set(ByVal value As Integer)
Me._offTimeing = value
End Set
End Property
End Structure
Was Du auch als Array verwenden kannst:
Dim Segmente(64) As Segment
oder aber als
Auflistung
Dim Segmente As new List(Of Segment)
verwenden kannst. Bei letzterem bis brauchst Du kein Größe mehr angeben,
allerdings mußt Du den bisherigen Code für die Zuweisung ändern.
Gruß Elmar
