Private Sub Command1_Click()
lvList.GridLines = Not lvList.GridLines
SetBackColor lvList, vbRed, vbWhite
End Sub
Private Sub Form_Load()
Dim i As Long, lvItem As ListItem
For i = 1 To 450
Set lvItem = lvList.ListItems.Add(, , "演示 " & i)
If i Mod 2 = 0 Then lvItem.Checked = True Else lvItem.Checked = False
Next i
SetBackColor lvList, picBoard, vbRed, vbGreen
End Sub
Private Function SetBackColor(lvList As ListView, picBoard As PictureBox, CheckColor As ColorConstants, unCheckColor As ColorConstants)
Dim iWidth As Single, iHeight As Single, tHeight As Single, lMatch As Single
Dim i As Long
With picBoard
.AutoRedraw = True
.BackColor = lvList.BackColor
.Cls
.Visible = False
.ScaleMode = vbTwips
.Width = lvList.Width + 100
.Height = lvList.ListItems(1).Height * (lvList.ListItems.Count + 1)
With .Font
.Size = lvList.Font.Size + 2.75
.Bold = lvList.Font.Bold
.Charset = lvList.Font.Charset
.Italic = lvList.Font.Italic
.Name = lvList.Font.Name
.Strikethrough = lvList.Font.Strikethrough
.Underline = lvList.Font.Underline
.Weight = lvList.Font.Weight
End With
iWidth = .Width
For i = 1 To lvList.ListItems.Count
If i = 1 Then lMatch = lvList.ListItems(i).Top - lvList.ListItems(i).Height
tHeight = lvList.ListItems(i).Top - lvList.ListItems(i).Height - lMatch
iHeight = lvList.ListItems(i).Height
If lvList.ListItems(i).Checked Then
picBoard.Line (0, tHeight)-(iWidth, tHeight + iHeight), CheckColor, BF
Else
picBoard.Line (0, tHeight)-(iWidth, tHeight + iHeight), unCheckColor, BF
End If
Next
End With
lvList.Picture = picBoard.Image
End Function
|
