作者kane2003 (kane)
看板Visual_Basic
标题[VB6 ] 如何 扫描图片上点 并判定期颜色?
时间Sun May 28 02:48:43 2006
请问大家如何在vb6的imageg上扫描出一个点的颜色
并判断其颜色为何
我的目的是把图片上特定一颜色的点数目求出来
以判断这个颜色的面积
我找了一晚上 找到一个网站说可以用point来得出座标颜色
他有一个范例是做出类似小画家一样 先取得图片上某一处的颜色
再在其他地方把刚刚取得的颜色用pset点出来
范例如下
Dim point_colo As Variant
Private Sub form_mousedown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
point_colo = Form1.Point(X, Y)
End Sub
Private Sub picture1_mousedown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Picture1.PSet (X, Y), point_colo
End Sub
但我试过以後发现 不论我在哪里点 pset出来都是黑色的
到底用form1.point 这个方式取得点的颜色对不对阿
再来如假设我已经用上述的方式取得点的颜色後
判断颜色是否为黑色我是只要打
if point_color=RGB(0,0,0) then 'point_color 为刚刚取得的颜色
....
end if
就好了 请各位高手赐教 叩首 感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.224.78.70
1F：→ kane2003:已在网站上看到解决方法 谢谢~~ 05/29 11:25
2F：→ hsnu920:图形辨识阿~~~~ 太晚看到了 XD (茶) 06/01 11:46