在PictureBOX中，已用画笔画有一些蓝色和红色的圆，圆不填充，要实现的功能：

在PictureBOX上用右键单击蓝色像素点，所有蓝色的圆变成PictureBOX背景色（白色），而红色的圆则不变．
或实现象Photoshop中的替换颜色功能，望提供完整代码，先谢了！


有人提供过思路＂你如果要用任一种颜色替换图片框中某种任意颜色的所有点，请用API   来试试，请看看GetPixel()和SetPixel()，如果你能记住该种颜色所绘轨迹就更好了！＂
但不知道如何写，请高手帮忙！

[[it] 本帖最后由 klj123 于 2008-6-22 19:04 编辑 [/it]]

Function Point(X As Single, Y As Single) As Long
    Member of VB.PictureBox
    Returns, as an integer of type Long, the RGB color of the specified point on a Form or PictureBox object.
用Point方法可以得到某一点的颜色

Sub PSet(Step As Integer, X As Single, Y As Single, Color As Long)
    Member of VB.PictureBox
    Sets a point on an object to a specified color.
似乎用PSet方法可以设置一点的颜色

至于怎么保存下来，我不清楚。

版主啊，总的来说，就是如何将PictureBOX的蓝色变成白色，但我通过改变Picture1.BackColor = RGB(0, 0, 255)，达到删除蓝色线条，但这样红线条也被删除了，哎．．．．

你现在要针对每个点操作，你改背景色干什么？

总之将已画的蓝色圆去除，而红的留下就达到目的了，请版主尽力帮忙！！！！