洛阳曹魏大墓发掘记:运用VB方法给指定区域填充颜色

来源：百度文库编辑：神马品牌网时间：2024/05/08 07:41:20

可以这样解决。我指定的区域就是form1区域。

在vb6下调试通过：

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 FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim hBrush As Long, hOldBrush As Long

hBrush = CreateSolidBrush(RGB(255, 0, 0))

hOldBrush = SelectObject(Me.hdc, hBrush)
FloodFill Me.hdc, X, Y, RGB(0, 0, 0)
SelectObject Me.hdc, hOldBrush
DeleteObject hBrush
End Sub

运用VB方法给指定区域填充颜色 vb中怎样用空格填充字符串到指定位数？ vb中circle画圆如何填充颜色？诸位大虾：在vb中，如何实现让鼠标点击图片，然后移动到需要填充的区域在点击而让图片填充此区域？谢谢啦 Adobe photoshop CS版里选择的区域怎么填充颜色用excel时，填充颜色按钮怎么也不管用，就是填不上颜色，因此也没法选定区域，该怎么办？ excel里无法给单元格填充颜色了怎么办在photoshop 里边怎么给空心圆填充颜色啊？ photoshop:怎样给图层2填充颜色？ pianter给线稿选区填充颜色为什么会有白边