投稿日 | : 2003/11/01(Sat) 08:55 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: やってみたのですが(訂正) |
>(160×120ピクセルで5秒程度)
それほどかかりますかね?前期のプログラムの処理以外の部分に時間が掛かっているのでは
ないでしょうか?
363×258ピクセルの画像を前記のプログラムで実行すれば1秒〜2秒で処理できるはずですが
Win98 SE Celeron 466MHz VB6.0 pColor = Picture1.Point(x, y)
Picture1.PSet (x, y), RGB(pColor, pColor, pColor)
の部分をAPIの GetPixel(hDC1, x, y) と SetPixelV hDC2, x1, y1, c に置き換えると
若干早くなります。
それ以上早くするには
GetDIBits
SetDIBits
CreateCompatibleBitmap
SelectObject
DeleteObject
以上のAPIを使用すればかなり早くなります。
関数名で検索すればサンプルも見つかります。