Zitat:

Das Programm kann den Code aber nicht von ReDim X(3, 4, 2) zu ReDim X(3, 4, 2, 6) ändern...

Option Strict Off
Imports Microsoft.VisualBasic
Module modStrictOff
 
   Private X As Object
   Sub Main3()
      ReDim X(3, 4, 2)
      MsgBox(X.Getupperbound(0))
      MsgBox(X.Getupperbound(1))
      MsgBox(X.Getupperbound(2))
      X(3, 4, 2) = 10
      MsgBox(X(3, 4, 2))
 
      ReDim X(3, 4, 2, 6)
      MsgBox(X.Getupperbound(0))
      MsgBox(X.Getupperbound(1))
      MsgBox(X.Getupperbound(2))
      MsgBox(X.Getupperbound(3))
      X(3, 4, 2, 6) = 10
      MsgBox(X(3, 4, 2, 6))
   End Sub
 
End Module

(Rechtschreibfehler urheberrechtlich geschützt)

Beitrag wurde zuletzt am 05.12.13 um 09:36:13 editiert.