如果数据量比较大，ListView隔行不同颜色显示出现故障

renahu

VBA下用的PictureBox控件(ListView隔行不同颜色轻松显示)
http://club.excelhome.net/thread-630874-1-1.html

但是我发现是不是受到PictureBox控件的限制，如果数据量比较大，比如超过1000以后，隔行不同颜色的显示就并不轻松了，甚至没有颜色，不知道有没有解决办法，详见附件：
listview小测试6.rar (26.18 KB, 下载次数: 128)

2014-10-18 21:25 上传

点击文件名下载附件

另附：PictureBox控件和安装使用说明
PictureBox控件安装.rar (13.95 KB, 下载次数: 117)

2014-10-18 21:32 上传

点击文件名下载附件

renahu

看来又是无解

wxhnr

是不是picture的height最大是245745？

renahu

wxhnr 发表于 2014-10-19 17:05
是不是picture的height最大是245745？

网上查到的是这个数，还没搞明白怎么突破高度，大家集思广益想想办法，我的数据可是有一万多啊，现在只能用于一千多，差太远了

renahu

Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOMOVE = &H2

Private Sub Form_Load()
     SetWindowPos Picture1.hwnd, 0, 0, 0, Picture1.Width, 20000, SWP_NOMOVE
     MsgBox Picture1.Height
End Sub

网上查到的，经测试,VB只能设到245745TWIPS(16383PIXELS),用上面的API可以设到32767PIXELS, 但上面的怎么用呀，不明白

renahu

顶起来，期待精通listview和picturebox的高手出现

renahu

不信这里没有高手，继续顶

renahu

执着地顶！

ivccav

用这个吧：http://club.excelhome.net/thread-1428537-1-1.html

完全是控件自身的功能，无需借助第三方控件，且能真正实现任意多数据换色，而不是600多行。


还可以设置任意单元格的前景色和背景色，和标题行的前景色和背景色。

vitrel

楼主，您好！
您可能走进了一个误区了，
其实，即使ListView有1万行，背景图仅需2行便足够，
因为设置ListView的背景图时，有一个参数可将背景图设置为平铺，代码如下：
ListView1.PictureAlignment = lvwTile        '背景图平铺
这样做的结果就是，即使原背景图只有2行，也可以无限平铺成无数行，
原理就如Windows桌面背景的拉伸、平铺一样。

根据以上思路，我已对你的测试程序作出修改，
经测试，对于1万行的数据，妥妥的，
至于再多，受Integer、Long数据类型所限制，我没有再测试了。