Come copiare le matrici dinamiche in VB6

November 6

Visual Basic 6 (VB6) è un linguaggio di programmazione da parte di Microsoft. La lingua deriva dalla lingua originale di programmazione BASIC. VB6 è molto più semplice rispetto ad altri linguaggi di programmazione, ma è potente a sé stante. VB6 utilizza alcuni degli stessi costrutti di programmazione, come le classi, funzioni, loop, istruzioni condizionali e array. array VB6 sono utilizzati per memorizzare oggetti di valore simile. In codifica applicazioni, potrebbe essere necessario copiare elementi di un array ad un altro, che può essere realizzato con righe di codice VB6.

istruzione

1 Aprire Visual Basic 6.

2 Selezionare "EXE standard" dal nuovo elenco di progetti.

3 Vai alla barra dei menu in alto. Fai clic su "Progetto" e "Aggiungi modulo". Questo processo aggiungere un modulo di codice standard nel progetto VB6.

4 Digitare o copiare e incollare il seguente codice nel modulo.

Public CopyArray secondaria (fromArray As Variant, ToArray As Variant)

Dim l As Long, lUBound As Long, lLBound As Long

Se (Non IsArray (fromArray)) O (Non IsArray (ToArray)) Then Exit Sub

lLBound = LBound (fromArray)

lUBound = UBound (fromArray)

ReDim ToArray (lLBound Per lUBound)

Per l = lLBound Per lUBound

ToArray(l) = FromArray(l)

Il prossimo

End Sub

TestCopyArry Sub ()

Dim i (2) As Integer, j () As Integer

Dim ICTR As Integer

i (0) = 5

i (1) = 8

i (2) = 10

CopyArray i, j

Per ICTR = 0 Per UBound (j)

Debug.Print j (ICTR)

Il prossimo

End Sub