- VBScript code复制代码
'SetListViewBGColor(ListView控件名称,要设置的背景颜色行号,颜色值-默认:&HB6B4FF) Public Sub SetListViewBGColor(ByRef ListView As ListView, _ ByRef Index As Long, _ Optional BGColor As Long = &HB6B4FF) 'author:www.newxing.com Dim lineTop As Long, lineHeight As Integer Static Pic As PictureBox If Pic Is Nothing Then Set Pic = Controls.Add("VB.PictureBox", "picbg") lineHeight = ListView.ListItems(Index).Height lineTop = lineHeight * (Index - 1) With Pic .Cls .AutoRedraw = True .Visible = False .ScaleMode = vbTwips .Font = ListView.Font .BorderStyle = 1 .Appearance = 0 .Height = lineHeight * ListView.ListItems.Count + lineHeight .Width = ListView.Width End With Pic.Line (0, lineTop)-(Pic.Width, lineTop + lineHeight), BGColor, BF ListView.Picture = Pic.Image End Sub
如果是设置全部背景颜色的话,以下这样就可以了:
ListView1.BackColor = &HB6B4FF