07/08/21 14:55:53
>>732
そうなんですか。すいません。あまり詳しくなくて。。
URLﾘﾝｸ(oshiete1.goo.ne.jp)
この辺みて勘違いしてたかもしれません。
取りあえず、↓みたいな感じの関数で帰ってから試してみます。
有り難う御座いました。
Private Function PeekColor(ByVal x As Integer, ByVal y As Integer) As Integer
Dim ret As Integer
ret = GetWindowDC(0) 'スクリーン全体のデバイスコンテキストを取得
PeekColor = GetPixel(ret, x, y)
ret = ReleaseDC(0, ret) 'スクリーン全体のデバイスコンテキストを解放
End Function