vblistview添加行颜色

你好！vblistview添加行颜色如下，1、先在PictureBox控件里画图，之后将其加载到Listview中

        2、给单元格/Shape添加颜色后，复制Range和Shapes对象给剪贴板，然后保存成图片，需要WinAPI

        3、对ListItem子类化后进行重绘。这是原来Vb用的方法，vba里貌似没人用

下面的方法1、2与上面的方法2相似，方法3即上面的方法3。当然还可以通过调用整个控件hdc在内存中作图，但和方法3一样需要调用WinAPI

分类: 电脑/网络 >>程序设计 >>其他编程语言

解析:

可以这样解决。我指定的区域就是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使用RGB 函数和QBColor 函数等指定颜色。

RGB 函数，返回一个 Long整数，用来表示一个 RGB 颜色值。

使用 RGB 函数，可以用 RGB 函数来指定任何颜色。

为了用 RGB 函数指定颜色

1.要对三种主要颜色（红、绿、蓝）中的每种颜色，赋给从 0 到 255 中的数值，0 表示亮度最低，而 255 表示亮度最高。

2.使用红-绿-蓝的排列方式，将三个数值输入给 RGB 函数。

3.将结果赋给颜色属性或颜色参数。

QBColor 函数

返回一个 Long，用来表示所对应颜色值的 RGB 颜色码。

---