以下是引用xzlxzlxzl在2015-1-27 17:28:09的发言：

拓展lianyicq版主的功能，填充选中的颜色
Option Explicit
Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long

Private Sub Form_Load()
  Form1.ScaleMode = 3
  Picture1.ScaleMode = 3
  Picture1.AutoRedraw = True
  Picture1.Circle (Picture1.Width * 0.5, Picture1.Height * 0.5), Picture1.Height * 0.4, vbRed
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim c As Long, r As Long, g As Long, b As Long, s As Integer
  Randomize
  r = Rnd * 255: g = Rnd * 255: b = Rnd * 255
  If Button = 1 Then
    c = Picture1.Point(X, Y)  '获取要取代的颜色
    Picture1.FillColor = RGB(r, g, b)
    s = Picture1.FillStyle
    Picture1.FillStyle = 0  '填充模式
    ExtFloodFill Picture1.hdc, X, Y, c, 1  '从鼠标选中的点开始填充随机色（用模式1，模式0是判断边界颜色）
    Picture1.FillStyle = s  '还原填充模式
  End If
End Sub

以下是引用xzlxzlxzl在2015-1-27 22:08:19的发言：

ExtFloodFill me.hdc, X, Y, c, 1或 ExtFloodFill form1.hdc, X, Y, c, 1
这个问题我都不好意思回答，只是惊奇于你好意思问。因为纯小白当前是到不了需要问图形处理的问题的，如果真的需要了，大致就像史前人穿越过来要开汽车一样。

以下是引用lianyicq在2015-1-29 10:05:27的发言：

有意思,不管用什么方法,学到东西才是真的.
原因自己想想，我只提示一点那个API函数需要在你希望填充的图形内任意定一点，注意是以像素为单位。如果点不在图形内，当然不填充.

以下是引用xzlxzlxzl在2015-1-29 14:05:52的发言：

可能我在12楼说的有点过，sorry!
我想lianyicq版主也明白我的意思。你这样问问题是学不到什么的，不经过思考，张嘴就问，也许，你最后做成了一个小东西，但做完就做完了，你收获肯定不大。
就你这个问题，其实在lianyicq版主给出实例前我也没接触过，不过通过看lianyicq例子我能总结出填充函数需要五个关键要素：1、场景hdc，目前vb里能直接获取hdc的就form和picture两个（没详细总结，可能有误），2、设置场景的填充样式fillstyle<>1，因为1为透明，看不到填充效果，3、设置场景填充颜色fillcolor=你需要的颜色，4、设置填充开始坐标，5、填充模式，0：边界模式，必须指定边界颜色，填充到该颜色停止，lianyicq版主实例使用该模式；1：颜色替换模式，指定替换色，碰到不是该颜色时停止填充。填充模式是百度到的。
补充说明：vb form的度量单位默认为twip，即使你设定了scalemode=3，只能对窗体工作区内起作用，对窗体外框不起作用，因此窗体的width、height的单位仍然是twip，如果使用默认的scalewidth和scaleheight一般是你设置的pixel。
有了上述提示，希望你编程成功，真正进步。