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

camle · 发表于 2010-9-27 21:36

控件已更新,可以画直线/圆/输入文字等,具体用法请见附件说明
新控件名为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 · 发表于 2010-9-27 21:56

谢谢楼主分享。。。。

camle · 发表于 2010-9-28 07:04

多谢大大关注...

hanter007 · 发表于 2010-9-28 08:46

多谢楼主分享..

qczvba · 发表于 2010-9-28 09:00

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

shbc001 · 发表于 2010-9-28 10:14

学习,学习,谢谢楼主

zhao__feng · 发表于 2010-9-28 14:52

谢谢分享。

dd2003joke · 发表于 2010-10-16 15:38

太感谢楼主了

dd2003joke · 发表于 2010-10-16 16:28

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

camle · 发表于 2010-10-16 16:53

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

控件已更新,欢迎试用.

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

		自动登录	找回密码
密码			免费注册

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

学习,学习