Pixel array -----> Picturebox (wow, pset is slow)

[icematrix]

What is the most compact and simple way to take a 50x50 array of color values and blit that into a 50x50 picturebox. Sorry if you've heard this one before.

- // /\/\atrix // -

[YoungBuck]

The SetPixelV would probably be the fastest way to draw directly to the picturebox. If this isn't fast enough you can draw directly to an offscreen DC and then just blt it directly from memory into the picture box (alot more code), let me know if you need an example for that....



Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long


Private Sub Form_Load()
Dim iX As Integer
Dim iY As Integer
Dim lColorArray(0 To 50, 0 To 50)
' resize picture box to 50 X 50 pixels
Picture1.Height = 50 * Screen.TwipsPerPixelX
Picture1.Width = 50 * Screen.TwipsPerPixelY

Picture1.AutoRedraw = True

' fill the array with random colors
For iX = 0 To 50
For iY = 0 To 50
lColorArray(iX, iY) = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next iY
Next iX

' set the pixel's color
For iX = 0 To 50
For iY = 0 To 50
SetPixelV Picture1.hdc, iX, iY, lColorArray(iX, iY)
Next iY
Next iX

End Sub

[icematrix]

Thank you! That worked wonderfully.

[Sastraxi]

However, YoungBuck, I would code for that...

So far i'm getting a frame every 9 secs for a 640x480 picture w/ get & setpixelV
(but i'll be using DDraw soon)