'添加一个PictureBox控件,名称为:picGreenbar
Private Sub Form_Load()
'Vars for greenbar code
Dim i As Integer
Dim iFontHeight As Long
Dim iBarHeight As Integer
Dim j As Integer
Dim itmX As ListItem
Dim ColHead As ColumnHeader
ListView1.ColumnHeaders.Add , , "This is Just a Simple Example"
ListView1.ColumnHeaders(1).Width = 3000
For j = 1 To 33
Set itmX = ListView1.ListItems.Add()
itmX.Text = "This is item number " & CStr(j)
Next j
Me.ScaleMode = vbTwips 'make sure our form is In twips
picGreenbar.ScaleMode = vbTwips
picGreenbar.BorderStyle = vbBSNone 'this is important - we don't want To measure the border In our calcs.
picGreenbar.AutoRedraw = True
picGreenbar.Visible = False
picGreenbar.Font = ListView1.Font
iFontHeight = picGreenbar.TextHeight("b") + Screen.TwipsPerPixelY
iBarHeight = (iFontHeight * 1) '3 line wide greenbars.
picGreenbar.Width = ListView1.Width
'======
picGreenbar.Height = iBarHeight * 2
picGreenbar.ScaleMode = vbUser
picGreenbar.ScaleHeight = 2 '2 bar-widths high
picGreenbar.ScaleWidth = 1 '1 bar-width wide
'draw the actual bars
picGreenbar.Line (0, 0)-(1, 1), vbWhite, BF 'white bars - modify vbWhite To change bar color
picGreenbar.Line (0, 1)-(1, 2), RGB(227, 241, 226), BF 'light green bars - modify RGB(x,x,x) To change bar color
'======
'put it in the listview control, tiled
ListView1.PictureAlignment = lvwTile
ListView1.Picture = picGreenbar.Image
End Sub