Ako kopírovať dynamická poľa vo VB6

Visual Basic 6 ( VB6 ) je programovací jazyk od spoločnosti Microsoft . Jazyk je odvodený z pôvodného základného programovacieho jazyka . VB6 je oveľa jednoduchšie ako u iných programovacích jazykov , ale to je silný v jeho vlastnej pravý . VB6 používa niektoré rovnaké programovací konštrukty , ako sú triedy , funkcie , cykly , podmienené príkazy a polí . VB6 polia sa používajú na ukladanie položiek podobné hodnoty . V kódovanie aplikácie , budete musieť kopírovať položky do jedného poľa do druhého , čo môže byť vykonané s riadkami VB6 kódu . Pokyny dovolená 1

Otvorte Visual Basic 6.
2

zvoľte " Štandardné EXE " z nového zoznamu projektov .
3

Prejsť na hornej lište ponúk . Kliknite na " projekt " a " Pridať modul . " Tento proces sa pridá štandardný modulu kódu do VB6 projektu .
4

Zadajte alebo skopírujte a vložte nasledujúci kód v module .

Public Sub CopyArray ( FromArray As Variant , ToArray ako variant )

Dim l As Long , lUBound tak dlho , lLBound As Long

( nie IsArray ( FromArray ) ) alebo ( nie IsArray ( ToArray ) ) Potom Exit Sub

lLBound = LBound ( FromArray )

lUBound = UBound ( FromArray )

ReDim ToArray ( lLBound Pre lUBound )

l = lLBound Pre lUBound

ToArray ( l ) = FromArray ( l )

Ďalšie

End Sub

Sub TestCopyArry ( )

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

Dim ICTR As Integer

i ( 0 ) = 5

i ( 1 ) = 8

i ( 2 ) = 10

CopyArray i , j

ICTR = 0 UBound ( j )

Debug.Print j ( ICTR )

Ďalšie

End Sub

• Predchádzajúca strana: Ako používať režim spánku v jazyku VBA 
• Ďalšia strana: Ako vytvoriť databázu v VB.Net