使用FloodFill函数填充区域却没有效果
编号：QA002532
建立日期: 2000年2月4日 最后修改日期：2000年2月4日
所属类别：
曹洪涛:
我在编写绘图程序时出现了问题。当使用FloodFill函数时会导致系统没有反应，为验证是否是这个函数造成的，我编写了下面的代码
Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Sub Command1_Click()
Picture1.ScaleMode = 3
Picture1.Line (30, 30)-(100, 100), , B
FloodFill Picture1.hdc, 40, 40, vbRed
End Sub
运行，完了，机器死掉了。这是谁的错？我的编程环境Win98 VB6中文版。
回答:
你的这段代码不会导致死机，只是运行后画了一个矩形而没有填充罢了。只所以没有实现填充效果，是因为你的一些设置不正确。要正常填充需要设置PictureBox的FillStyle和FillColor属性。FillStyle设置用来填充的模式。缺省值是透明，也就是不填充。你可以设置为其他值。FillColor属性是用来填充的颜色，如果你希望用红色填充区域需要设置这个属性为红色。FloodFill的最后一个参数是填充区域边界的颜色。
相关问题：
QA000121 "如何填充任意封闭区域"
此问题由李海回答。
| |
|
|
| |
|
|
