Πώς να αντιγράψει Δυναμικοί πίνακες σε VB6

Visual Basic 6 ( VB6 ) είναι μια γλώσσα προγραμματισμού από τη Microsoft . Η γλώσσα προέρχεται από την αρχική γλώσσας προγραμματισμού BASIC . VB6 είναι πολύ πιο απλή από ό, τι άλλες γλώσσες προγραμματισμού , αλλά είναι ισχυρή από μόνη της . VB6 χρησιμοποιεί κάποια από τις ίδιες δομές προγραμματισμού , όπως μαθήματα , τις λειτουργίες , loops , υπό όρους δηλώσεις και πίνακες . Συστοιχίες VB6 χρησιμοποιούνται για την αποθήκευση αντικείμενα παρόμοιας αξίας . Σε εφαρμογές κωδικοποίησης , μπορεί να χρειαστεί να αντιγράψετε στοιχεία σε ένα πίνακα στον άλλο , πράγμα που μπορεί να επιτευχθεί με τις γραμμές του κώδικα VB6 . Οδηγίες
Η 1

Ανοίξτε Visual Basic 6 . 2

Επιλέξτε "Standard EXE " από τη νέα λίστα των έργων .
Εικόνων 3

Πήγαινε στην κορυφή γραμμή μενού . Κάντε κλικ στο " Project" και " Προσθήκη Module . " Αυτή η διαδικασία θα προσθέσει μια τυπική λειτουργική μονάδα κώδικα στο έργο VB6 σας .
Η 4

Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη λειτουργική μονάδα .

Public Sub CopyArray ( FromArray Όπως Variant , toArray Όπως Variant )

Dim l Όπως Long , lUBound Όπως Long , lLBound Όπως Long

Αν (Δεν IsArray ( FromArray ) ) Ή (Δεν IsArray ( toArray ) ) Στη συνέχεια Exit Sub

lLBound = LBound ( FromArray )

lUBound = UBound ( FromArray )

ReDim toArray ( lLBound να lUBound )

Για l = lLBound να lUBound

toArray ( λ ) = FromArray ( ιβ )

Επόμενο

End Sub Sub

TestCopyArry ( )

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

Dim ICTR As Integer

θ ( 0 ) = 5

i ( 1 ) = 8

i ( 2 ) = 10

CopyArray i , j

Για ICTR = 0 να UBound ( ι )

Debug.Print j ( ICTR)

Επόμενο

End Sub
Η
εικόνων