Array length at runtime 1

[Rednyx]

How can I set the length of Array in VB6 during runtime?
If there are any Gimicks while using array that a beginer should know, please do tell me that too

 

[dsi]

You can use the ReDim and ReDim Preserve commands to modify the length of an array. There are samples in the VB Help file on this. DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[Rednyx]

i have array say Member(10)
and i would like to store the Length, E and I of every member seperately...like Member(1).Length , is it somehow possible in VB.
Thanks for the ReDim Tip.

 

Something like this?

Option Explicit

Public Type MY_TYPE
ILength As Double
ELength As Double
End Type

Public Sub Test()
Dim Members() As MY_TYPE
Dim intCnt As Integer
Dim PI As Double
PI = Atn(1) * 4
For intCnt = 0 To 10
ReDim Preserve Members(intCnt)
Members(intCnt).ILength = PI * 7 - intCnt
Members(intCnt).ELength = PI * 4 + intCnt
Next intCnt
For intCnt = 0 To 10
Debug.Print Members(intCnt).ELength
Debug.Print Members(intCnt).ILength
Next intCnt
End Sub

 

[Rednyx]

thankU Rj ,Uve soled my prob.

 

[CTruax]

Dim Array(0,1) 'global
I = 5.36 '2x4 #2 Doug-Fir Wood
E = 1.6E+06
call AddNewSection( I, E )
end

Private Sub AddNewSection (I as Single, E as Single)
Static nSections
nSections = nSections + 1
ReDim Preserve Array (nSections, 1)
Array( nSections, 0)= I
Array( nSections, 1) = E
end sub

 

Does anyone know how to get the length of an array at runtime in VB script?

 

[FrancisL]

Use the Ubound function
ArrayLength = Ubound(ArrayName)