Question

求用VB程序编写的二维图形的填充代码

在线等.!~~~~

Answer 1

VB 填充封闭区毁行手间

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 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 Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub Command1_Click()
Dim hBrush As Long
Dim OldhBrush As Long

hBrush = CreateSolidBrush(RGB(0, 0, 255))'纤嫌要填充的颜色
OldhBrush = SelectObject(Me.hdc, hBrush)

Me.Line (10, 10)-(100, 100), RGB(255, 0, 0), B

FloodFill Me.hdc, 20, 20, RGB(255, 0, 0)'区间边带余界颜色

SelectObject Me.hdc, OldhBrush
DeleteObject hBrush
End Sub