使用vb6將陣列數據複製到另一個陣列

如何使用VB6將Array的數據傳遞給另一個Array？使用vb6將陣列數據複製到另一個陣列

2014-04-07 user3391894

你想數組複製？ – Blorgbeard

是的，因爲我在我的程序中有一個計算，我應該保留當前時間的數據，這就是爲什麼我需要它。 'Array2 - Array1'然後在計算之後，我會將'Array2'的數據傳遞給'Array1'，這樣'Array1'必須已經有一個值，'Array2'必須是空的 – user3391894

試試這個：

 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

如果它不是固定長度，你需要在循環中使用REDIM。

來源

2014-04-07 09:56:28

在VB6中，數組被複制到一個簡單的賦值上。

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

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

arr2 = arr1

來源

2014-04-07 10:03:43 GSerg

我認爲這隻有在它的動態但它絕對是最簡單的方法。 –

是的，它只適用於動態數組。 – GSerg

+1只是爲了好玩：你也可以使用API調用，但它更困難http://www.xbeat.net/vbspeed/c_SliceLng.htm – MarkJ

我已經回答了我的問題:)謝謝你們的幫助，但這就是我所做的。

'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

此代碼解決我的問題:)

來源

2014-04-08 01:15:25 user3391894

使用vb6將陣列數據複製到另一個陣列

回答

相關問題