关于封闭区间填充颜色

[ZOU_SEAFARER]

有段时间没有来csdn逛水了，有问题了，借机会和大家见见

此函数就是任意封闭区间填充颜色的函数，不过前提条件必须是这ScaleMode = 3
有没有办法把使用自定义的坐标填充任意封闭区间颜色呢？封闭的颜色已知

   Me.ScaleMode = 3
   Me.Circle (100, 100), 13, vbWhite
   n = paint(Me.hdc, 100, 100, vbBlue, vbWhite)


Public Function paint(hdc As Long, x As Long, y As Long, _
                      Paintcol As Long, Bordercol As Long) As Long
    Dim hBrush As Long
    Dim hBackBrush As Long
    Dim n As Long
    hBrush = CreateSolidBrush(Paintcol)
    hBackBrush = SelectObject(hdc, hBrush)
    paint = ExtFloodFill(hdc, x, y, Bordercol, FLOODFILLBORDER)
    n = DeleteObject(SelectObject(hdc, hBackBrush))
End Function

[ZOU_SEAFARER]

补充一下
屏幕分辨率为1024 * 268
新坐标系
const SCREEN_Y = 960
const SCREEN_X = 720
frmShow.Scale (0, SCREEN_Y)-(SCREEN_X, 0)

[Soyokaze]

多谢楼主，让我学到了一个新的API--ExtFloodFill。以前还真没碰到过。

[mfkinfo]

Tiger_Zhao出手就是高啊

[Tiger_Zhao]

做好坐标转换就可以了

Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.WindowState = vbMaximized
End Sub

Private Sub Form_Resize()
    Me.ScaleMode = vbUser
    Me.Scale (0, SCREEN_Y)-(SCREEN_X, 0)
    Me.Cls
    Me.Circle (100, 100), 13, vbWhite
    Call paint(Me.hdc, ScaleX(100, Me.ScaleMode, vbPixels), ScaleY(100 - SCREEN_Y, Me.ScaleMode, vbPixels), vbBlue, vbWhite)
End Sub

[ZOU_SEAFARER]

Tiger_Zhao 谢谢啦， I TRY

[ZOU_SEAFARER]

这段时间比较的忙，问题已经解决，谢谢Tiger_Zhao老战友

Call paint(Me.hdc, ScaleX(100, Me.ScaleMode, vbPixels), ScaleY(100 - SCREEN_Y, Me.ScaleMode, vbPixels), vbBlue, vbWhite)

！