高速に点の色を取得高速に点の色を取得
API宣言コードを載せてあります
-/-/-/-/-宣言-/-/-/-/-/
APIのGetPixelを使います。
宣言は、
Declare
Function GetPixel Lib "gdi32" Alias
"GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y
As Long) As Long
をコードに記述してください。
また、Formコードに記述する場合は、PrivateをAPI宣言の先頭にそれぞれ記述してください。
-/-/-/-/-使い方-/-/-/-/-/
使い方は、Pointメソッドとほぼ同じです。
次の例は、lngColor = Picture1.Point(120, 180)と結果は同じです。
lngColor = GetPixel(Picture1.hDC, 120,180)
