- 738 名前：724 mailto:sage [2007/08/21(火) 14:55:53 ]
- >>732
そうなんですか。すいません。あまり詳しくなくて。。
oshiete1.goo.ne.jp/kotaeru.php3?q=1145477
この辺みて勘違いしてたかもしれません。
取りあえず、↓みたいな感じの関数で帰ってから試してみます。
有り難う御座いました。
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
