请教VB高手一个picture像素问题

来源:百度知道 编辑:UC知道 时间:2024/06/18 14:21:55
Picture1.Point(dX3, dY3)为一个点,即picture1的scalemode为pixel。我想实现下列语句怎么办呢:
if <这个点的颜色不是白色> then
text1.text=3
end if

if Picture1.Point(dX3, dY3) <> &HFFFFFF then '不是白色

Dim color As Long
Dim R As Long
Dim G As Long
Dim B As Long

color = Picture1.Point(dX3, dY3)
R = color And &HFF '分离出红色
G = (color And &HFF00&) \ 256& '分离出绿色
B = (color And &HFF0000) \ 65536& '分离出蓝色