Visual Basic 6 Kopieer ( VB6 ) is een programmeertaal van Microsoft . De taal is afgeleid van de originele programmeertaal BASIC . VB6 is veel eenvoudiger dan andere programmeertalen , maar het is krachtig in zijn eigen recht . VB6 gebruikt een aantal van dezelfde programmering constructies , zoals klassen , functies , lussen , conditionele statements en arrays . VB6 arrays worden gebruikt om items van dezelfde waarde op te slaan . In codeertoepassingen , moet u mogelijk items in een array naar een andere , die kan worden bereikt met lijnen van VB6 code te kopiëren . Instructies
1 Open Visual Basic 6 . Kopen van 2 Selecteer " Standard EXE " uit het nieuwe project lijst .
3 Ga naar de menubalk bovenaan . Klik op " Project " en " Module toevoegen . " Dit proces zal een standaard code -module toe te voegen in uw VB6 project .
4 Typ of kopieer en plak de volgende code in de module . Public Sub CopyArray
( FromArray als Variant , ToArray als Variant ) Dim l
As Long , lUBound As Long , lLBound As Long
als ( Niet IsArray ( FromArray ) ) of ( Niet IsArray ( ToArray ) ) dan Exit Sub
lLBound = LBound ( FromArray ) lUBound
= UBound ( FromArray ) op ReDim ToArray ( lLBound Om lUBound ) op Twitter Voor l = lLBound Om lUBound
ToArray ( l ) = FromArray ( l ) Volgende End Sub
Sub TestCopyArry (
) Dim i
( 2 ) As Integer , j ( ) As Integer Dim ICTR
als Geheel
i ( 0 ) 5
i = ( 1 ) = 8
i ( 2 ) = 10
CopyArray i , j
ICTR = 0 Om UBound ( j ) Debug.Print j
( ICTR ) op Volgende
End Sub
|
