[求助]ADO写入数据到ACCESS（圆满解决）-已添加VB版的Listview隔行显示不同颜色功能

fecmen

LIstview隔行显示不同颜色的核心代码如下：
Private Sub SetListItemColor(lv As ListView, picBg As PictureBox, LvCount As Long, fg As Integer)
   'LvCount用于统计当前Listview页面中显示的表格行数,该值根据实际情况来设置
   'fg是用来设置Listview中隔行显示不同颜色的风格  fg的取值范围为1-3  为三种不同风格
   On Error Resume Next
   Dim i As Long, arr1(), arr2()
   arr1 = Array(&HFF00&, RGB(254, 200, 100), RGB(227, 241, 226))
   arr2 = Array(&HC0FFC0, RGB(254, 209, 199), vbWhite)
    If lv.ListItems.Count > LvCount Then
       LvCount = lv.ListItems.Count
    End If
    picBg.BackColor = lv.BackColor
    lv.Parent.ScaleMode = vbTwips
    picBg.ScaleMode = vbTwips
    picBg.BorderStyle = vbBSNone
    picBg.AutoRedraw = True
    picBg.Visible = False
    picBg.Width = Screen.Width
    picBg.Height = lv.ListItems(1).Height * LvCount
    picBg.ScaleHeight = LvCount
    picBg.ScaleWidth = 1
    picBg.DrawWidth = 1
    '-----------------------------

    'custom.such as

    '------------------------------
    For i = 1 To LvCount
       If i Mod 2 = 0 Then
          picBg.Line (0, i - 1)-(1, i), arr2(fg - 1), BF
       Else
          picBg.Line (0, i - 1)-(1, i), arr1(fg - 1), BF
       End If
    Next
    lv.Picture = picBg.Image
    Erase arr1
    Erase arr2
End Sub

camle

多谢楼主.参考楼主41楼的代码,做了个pictureBox控件,欢迎试用.请见:VBA下用的PictureBox控件

nicehunnt

楼主，你能提供一些VB的源码工程文件吗？只知道代码，不知道如何应用，希望得到帮助噢！O(∩_∩)O谢谢~，我的EMAIL----nicehunnt@sohu.com

qjw9004

很想学学!~~

baomaboy

不错，以备参考。

monkeywq

多谢分享，来学习一下

dy_ysl

多谢分享，来学习一下

suqji

留个记号,以示关注

exaction

真的不错，收下了慢慢学习。

ZCJ112216

一日不学习，就觉得空虚，呵呵