|
below codes is to slow(when picture size is 320X240 then execute time about 2 sec.)
Dim nHeight As Long = view.Raster.BitmapHeight Dim nWidth As Long = view.Raster.BitmapWidth Dim x As Long = 0 Dim y As Long = 0
Dim picArray(320, 240) As Long
For y = 0 To nHeight - 1
For x = 0 To nWidth - 1
picArray(x, y) = CLng(view.Raster.Pixel(x, y))
Next
Next
Is there any idea to improve execute time?
Thanks a lot.
Beat regards.,
JACKY
|