游客

标题:VB 设置ListView中指定一行的背景颜色
正文:
边框 小边框 '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 &nbsp
[<<][[1]][2][>>]

查看评论(0)
发表评论



首页