Kirjoittaja: tnb
Kirjoitettu: 21.11.2003 – 21.11.2003
Tagit: koodi näytille, vinkki
Nopea menetelmä taulukon täyttämiselle Copy Memory menetelmällä. Esimerkissä täyttäminen alkaa Kohdasta A(1), luku jolla täytetään on 7. Ubound(a()) on taulukon koko ja luku 4 riippuu taulukon alkion koosta, tässä tyyppiä long joka on 4 tavua pitkä (32 bittiä).
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
Any, source As Any, ByVal numBytes As Long)
Private Sub Command1_Click()
Dim a(100) As Long
Dim b As Long
' kopioidaan luku 7 matriisiin a() joka arvoon
b = 7
CopyMemory a(1), b, UBound(a()) * 4 ' 4 = long tyypin pituus tavuina
End SubHieno, mutta saako taulukon kopioitua toiseen taulukkoon tuolla tavalla?