实在不明白，问一下，api填色的问题 - 编程论坛

#2

txxb2015-03-19 19:42

Call SelectObject(Form2.hdc, CreateSolidBrush(vbRed)) 'ì戀爀甀猀栀è¨昀漀爀洀2.hdc
Call ExtFloodFill(Form2.hdc, 10, 200, vbBlack, 0)
''DoEvents
'MsgBox ""
Call SelectObject(Form2.hdc, CreateSolidBrush(vbYellow)) 'ì戀爀甀猀栀è¨昀漀爀洀2.hdc
Call ExtFloodFill(Form2.hdc, 10, 200, vbBlack, 0)
还有这样用的话，后面2行不起作用，，，，vb里复制出来怎么是乱码

#3

lianyicq2015-03-20 09:45

回复楼主 txxb

程序代码：

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 Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Sub Form_Click()
Call SelectObject(Form2.hdc, CreateSolidBrush(vbRed)) '将红色的涂刷brush物件设定给form2.hdc
Call ExtFloodFill(Form2.hdc, 10, 200, Form2.Point(10, 200), 1)
End Sub

Private Sub Form_Load()
Form2.Show
Line (100, 100)-(100, 5500)
Line -(5500, 5500)
Line -(100, 100)
End Sub

点击form前

只有本站会员才能查看附件，请登录

点击form后

只有本站会员才能查看附件，请登录

#4

txxb2015-03-20 13:54

原因找到了，没有及时刷新窗体所致，
加了Form1.Refresh好了
为什么总有一些新问题不断出现