05-03-2005, 07:14 AM
Ya, I'm back with another Q:
How can you make The.Array() hold its values and elements between calls?
How can you make The.Array() hold its values and elements between calls?
Code:
Defint A-Z
Option Explicit
Type ArrayType
X As Integer
Y As Integer
Z As Integer
End Type
Type TheType
A as Integer
Array(0) As ArrayType
End Type
Declare Sub Add(The As TheType)
Declare Sub Display(The As TheType)
Dim The As TheType
Add The
Display The
Sleep
Sub Add (The As TheType)
Redim The.Array(234) As ArrayType
The.Array(34).X = 30
? ubound(The.Array)
End Sub
Sub Display (The As TheType)
? The.Array(34).X
? Ubound(The.Array)
End Sub
i]"But...it was so beautifully done"[/i]