ich möchte ein Globales Array von Objekten vergrößern, das klappt aber nicht.
Hier ein Beispiel:
Code: Alles auswählen
REM ***** BASIC *****
Type obj_A
str_A As String
int_A As Integer
End Type
Dim arr_A(1) As obj_A
Sub Main
Dim int_Count As Integer
int_Count = F_Anzahl()
MsgBox UBound(arr_A)
Redim arr_A(int_Count) As obj_A
MsgBox UBound(arr_A)
End Sub
Function F_Anzahl()As Integer
F_Anzahl = 10
End Function
Ich habe ein Globales Array von Objekten A und möchte es später ändern.
Ich habe das arr_A als
- Public
- Global
Nur geht das nicht, egal was ich versuche die Größe des Arrays ist immer 1.
Kann mir da jemand helfen oder einen Tipp geben?
Mit freundlichen Grüßen und schon mal Danke!
Magier
P.S. Benutze LibreOffic Version: 5.4.5.1 (x64) unter Windows