VBA下用的PictureBox控件(ListView隔行不同颜色轻松显示)

camle

控件已更新,可以画直线/圆/输入文字等,具体用法请见附件说明
新控件名为pictureBoxVba1.ocx    ，注册后, 在Excel-工具箱->"选加附件..." 要找到pictureBoxVba1.PictureBox,选中打勾.  2010.10.18.

用VB6.0做的,在家里搜了一下,好像没见到有发布的,如有雷同,纯属巧合.
控件用途: ListView隔行显示不同颜色.
想法和例子中的代码主要来自fecmen的帖子(40楼)ADO写入数据到ACCESS（圆满解决）-已添加VB版的Listview隔行显示不同颜色功能
制作方法是跟Monkey学的参见:VB一步一步创建vbaTimer控件
用的ListView例子来自FXSHENG 的 模糊查询，双击录入：灵活的_listview，由众多老师改进
安装方法(我用的是XP):
1、 下载控件,拷到\(windows目录)\system32后, 注册一下: 点"开始"->"运行",敲入   regsvr32 pictureBoxVba1.ocx    ,显示注册成功信息,就可以进Excel使用了.
2、 进Excel,进VB编辑器,在"工具箱"->"控件" 界面上点右键,选"附加控件..." ,找到 PictureBoxVba1.PictureBox 打上勾,就可以用了.
卸载方法:
1、进Excel,进VB编辑器,在"工具箱"->"控件" 界面->找到 pictureBox 点右键 删除
2、点"开始"->"运行",输入 regsvr32 pictureBoxVba1.ocx /u 即卸载.
实例使用方法:
1、在Form里添加一个pictureBox控件,大小,位置随意.实例中起名为 picLvwBg
2、设置pictureBox属性和隔行显示不同颜色代码都写在了实例中的公共模块里 sub ChangeLvwBG().
3、在UserForm_Initialize() 中加了一调用语句:
      ChangeLvwBG ListView1, picLvwBg
这个控件是本人照葫芦画瓢之作,加之水平有限,疏漏在所难免,望各位大大试用后能不吝赐教.并衷心感谢上面几位大大.
本人EH处女贴,希望大家喜欢.
效果图:


[ 本帖最后由 camle 于 2010-10-30 22:58 编辑 ]

lb_bn

谢谢楼主分享。。。。

camle

多谢大大关注...

hanter007

多谢楼主分享..

qczvba

不错，支持楼主，谢谢分享。

shbc001

学习,学习,谢谢楼主

zhao__feng

谢谢分享。

dd2003joke

太感谢楼主了

dd2003joke

为什么line方法画出来的是一个四方块啊

camle

原帖由 dd2003joke 于 2010-10-16 16:28 发表
为什么line方法画出来的是一个四方块啊

控件已更新,欢迎试用.

[ 本帖最后由 camle 于 2010-10-22 10:13 编辑 ]