关于treeview控件

Question

Public Sub SetColorBar(cListView As ListView, cColorBar As PictureBox, Optional lColor1 As Long = &HE2F1E3, Optional lColor2 As Long = vbWhite)
Dim iLineHeight As Long
Dim iBarHeight As Long
Dim lBarWidth As Long
'On Error GoTo SetColorBarError
    If cListView.View = lvwReport Then
        cColorBar.AutoRedraw = True
        cColorBar.BorderStyle = vbBSNone
        cColorBar.ScaleMode = vbTwips
        cColorBar.Visible = False
        cColorBar.Font = cListView.Font
        iLineHeight = cColorBar.TextHeight("|") + Screen.TwipsPerPixelY
        iBarHeight = iLineHeight * 3
        lBarWidth = cListView.Width
        cColorBar.Height = iBarHeight * 2
        cColorBar.Width = lBarWidth
        cColorBar.Line (0, 0)-(lBarWidth, iBarHeight), lColor1, BF
        cColorBar.Line (0, iBarHeight)-(lBarWidth, iBarHeight * 2), lColor2, BF
    End If
    cListView.PictureAlignment = lvwTile
    cListView.Picture = cColorBar.Image
End Sub

Answer 1

  源码。
  1、先给分；
  2、留Email
  3、收信。

Answer 2

我是用 SubClass . 重新 发 WM_Paint 消息。但很不稳定，不好意思 给你。