[求助]自动检测相应坐标（X、Y表示）所对应的RGB值
如何能在form1_load中写入代码，让程序一运行就自动检测相应坐标（X、Y表示）所对应的RGB值。
2007-09-01 14:43
用ＰＯＩＮＴ取得颜色值ＣＯＬＯＲ
ＲＥＤ＝ＣＯＬＯＲ ＭＯＤ ＆Ｈ１００
ＧＲＥＥＮ＝（ＣＯＬＯＲ＼＆Ｈ１００）ＭＯＤ ＆Ｈ１００
ＢＬＵＥ＝（ＣＯＬＯＲ＼＆Ｈ１００００）ｍｏｄ ＆ｈ１００
如果没记错的话，应该可以．
试一试这个：
R = Color And &HFF
G = (Color And &HFF00&) \ &H100
B = (Color And &HFF0000) \ &H10000
[此贴子已经被作者于2007-9-1 21:20:03编辑过]
2007-09-01 20:40
Dim rgb As Long
Dim r As String, g As String, b As String
rgb = Picture1.Point(8070, 6555)
r = rgb \ &HFF
g = (rgb \ &HFF00) \ &H100
b = (rgb \ &HFF0000) \ &H10000
Text1.Text = "R:" & r & ", G:" & g & ", B:" & b
为什么这段代码返回的RGB为0,0,0？(实际RGB为238,2.32)
问题出在哪，请帮忙看看！
2007-09-02 09:32
Dim color As Long
Dim r As String, g As String, b As String
color = Picture1.Point(8070, 6555)
r = color Mod &H100
g = (color \ &H100) Mod &H100
b = (color \ &H10000) Mod &H100
Text1.Text = "R:" & r & ", G:" & g & ", B:" & b
这样RGB=-1,0,0，为什么？
2007-09-02 09:40
2007-09-02 10:43
2007-09-02 11:34
5楼说得很清楚了。
2007-09-02 11:48
2007-09-02 12:09
2007-09-02 16:50
2007-09-02 17:28
