CODEWITHSUNDEEP
arraysvb6
user3391894
user3391894

Reputation: 9

Copy array data to another array using vb6

How can I pass the data of an Array to another Array using VB6?

Upvotes: 0

Views: 10784

Answers (3)

user3391894
user3391894

Reputation: 9

I have already answered my questions :) Thank you guys for the help but this is what I did.

'Delete items in Array first
            For lngIndex = 0 To UBound(time2) - 1
                time2(lngIndex) = time2(lngIndex + 1)
            Next
'Next thing is
'Insert items in Array
            For lngIndex = UBound(time1) - 1 To 0 Step -1
                time1(lngIndex + 1) = time2(lngIndex)
            Next

This code solve my problem :)

Upvotes: 0

GSerg
GSerg

Reputation: 78155

In VB6, array is copied on a simple assignment.

Dim arr1() As Long
Dim arr2() As Long

ReDim arr1(1 To 10)
'Fill arr1 with data

arr2 = arr1

Upvotes: 6

user2240058
user2240058

Reputation:

Try this: 

        Dim lArray1(3) As Long
        Dim lArray2(3) As Long
        Dim count As Long

        lArray1(0) = 1
        lArray1(1) = 2
        lArray1(2) = 3

        lArray2(0) = 10
        lArray2(1) = 20
        lArray2(2) = 30

        For count = LBound(lArray1) To UBound(lArray1)
            lArray2(count) = lArray1(count)
        Next count

        Erase lArray2

if its not fixed length you will need to use redim in the loop.

Upvotes: 0

Related Questions