高速に点を描く高速に点を描く
API宣言コードを載せてあります
-/-/-/-/-宣言-/-/-/-/-/
APIのSetPixelを使います。
宣言は、
Declare
Function SetPixel Lib "gdi32" Alias
"SetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y
As Long, ByVal crColor As Long) As Long
をコードに記述してください。
また、Formコードに記述する場合は、PrivateをAPI宣言の先頭にそれぞれ記述してください。
-/-/-/-/-使い方-/-/-/-/-/
使い方は、Psetメソッドとほぼ同じです。
次の例は、Picture1.Pset(120, 180),RGB(0, 0, 255)と結果は同じです。
SetPixel Picture1.hDC, 120,180, RGB(0, 0, 255)
多分、Refreshメソッドが必要だったと思います。
Picture1.Refresh
