Ανοίξτε 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
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα