Kirjautuminen

Haku

Tehtävät

Koodit: VB6: Taulukon nopea täyttö

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 Sub

Kommentit

sooda [22.11.2003 12:22:47]

#

Hieno, mutta saako taulukon kopioitua toiseen taulukkoon tuolla tavalla?

Kirjoita kommentti

Muista lukea kirjoitusohjeet.
Tietoa sivustosta