Visual Basic 6 ( VB6 ) är ett programmeringsspråk som Microsoft . Språket härstammar från den ursprungliga BASIC programmeringsspråk . VB6 är mycket enklare än andra programmeringsspråk , men det är kraftfull i sin egen rätt . VB6 använder några av de samma programmering konstruktioner , såsom klasser , funktioner , loopar , villkorssatser och matriser . VB6 arrayer används för att lagra objekt av liknande värde . Vid kodning program , kanske du behöver kopiera objekt i en array till en annan , vilket kan åstadkommas med rader VB6 kod . Instruktioner
1
Öppna Visual Basic 6 .
2
Välj " Standard EXE " från det nya projektet listan .
3
gå till den översta menyraden . Klicka på " Projekt " och " Lägg till modulen . " Denna process kommer att lägga en vanlig kod modul i VB6 projektet .
4
Skriv eller kopiera och klistra in följande kod i modulen .
Public Sub CopyArray ( FromArray As Variant , ToArray As Variant ) katalog
Dim L As Long , lUBound As Long , lLBound As Long
p Om ( Inte IsArray ( FromArray ) ) Eller ( Inte IsArray ( ToArray ) ) Avsluta sedan Sub
lLBound = LBound ( FromArray ) katalog
lUBound = UBound ( FromArray ) katalog
ReDim ToArray ( lLBound Till lUBound ) katalog
För L = lLBound Till lUBound
ToArray (l) = FromArray (l ) katalog
Nästa
End Sub
Sub TestCopyArry ( ) katalog
Dim i ( 2 ) As Integer , j ( ) As Integer
Dim ICTR As Integer
I ( 0 ) = 5
i ( 1 ) = 8
i ( 2 ) = 10
CopyArray i, j
För ICTR = 0 Till UBound ( j ) katalog
Debug.Print j ( ICTR ) katalog
Nästa
End Sub
