Office中国论坛/Access中国论坛

标题: 连续窗体各行显示不同颜色 [打印本页]

作者: t小宝 时间: 2013-10-7 21:28
标题: 连续窗体各行显示不同颜色
本帖最后由 t小宝于 2013-10-8 23:46 编辑

有网友一直在研究连续窗体各行根据颜色值显示颜色的问题，特作此例，实现在连续窗体上，每一行输入不同的颜色值即可显示不同的颜色。
要实现该功能需要在表中加一OLE字段，在窗体上通过绑定到该字段的绑定对象框来显示颜色。会往OLE字段中写入一些数据，不过数据不多，不到100字节，相当于一个字段大小为50的文本字段的大小。代码也不多：
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
' 函数名称: CreateOleDIB
' 功能描述: 创建Ole对象二进制数据，其中包含了一幅只有1个像素的纯色图片，可以设定颜色
' 将此二进制数据赋值给Ole字段，可以在绑定到该字段的绑定对象框中显示图片
' 将绑定对象框的缩放模式设为拉伸，使图片铺满，就可以在绑定对象框显示你想要的任意颜色
' 输入参数: lColor ... 颜色值
' 返回值: 成功返回Ole对象二进制数据
' 调用示例：Me.Ole字段1.Value=CreateOleDIB(255) ' 使当前Ole字段控件颜色为红色
' 作者: t小宝
' 更新日期: 2013-10-07
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
Public Function CreateOleDIB(lColor As Long) As Byte()
Dim sBuff(97) As Byte
sBuff(0) = &H15: sBuff(1) = &H1C: sBuff(2) = &H1A
sBuff(4) = &H3
sBuff(8) = &H5: sBuff(10) = &H1
sBuff(12) = &H14: sBuff(14) = &H19
sBuff(16) = &HFF: sBuff(17) = &HFF: sBuff(18) = &HFF: sBuff(19) = &HFF
sBuff(20) = &HCD: sBuff(21) = &HBC: sBuff(22) = &HC6: sBuff(23) = &HAC
sBuff(26) = &H1: sBuff(27) = &H5: sBuff(29) = &H0
sBuff(30) = &H3
sBuff(34) = &H4
sBuff(38) = &H44: sBuff(39) = &H49: sBuff(40) = &H42
sBuff(42) = &H1A
sBuff(46) = &H1A
sBuff(50) = &H2C
sBuff(54) = &H28
sBuff(58) = &H1
sBuff(62) = &H1
sBuff(66) = &H1
sBuff(68) = &H18
sBuff(74) = &H4
sBuff(96) = lColor And &HFF
sBuff(95) = (lColor And &HFF00&) \ &H100
sBuff(94) = (lColor And &HFF0000) \ &H10000
CreateOleDIB = sBuff
End Function

效果图：
[attach]52488[/attach]
示例文件：

作者: koutx 时间: 2013-10-7 21:30
本帖最后由 koutx 于 2013-10-7 21:32 编辑

谢谢分享,先坐个沙发

作者: smileyoufu 时间: 2013-10-7 22:05
下载学习一下

作者: tmtony 时间: 2013-10-7 22:09
小宝又出精品了,支持!!!

作者: 轻风 时间: 2013-10-8 08:39
本帖最后由轻风于 2013-10-8 08:47 编辑

好东西，谢谢分享。能问下代码是啥意思吗？

作者: chuang0321 时间: 2013-10-8 08:45
不错！{:soso_e179:}

作者: wang1950317 时间: 2013-10-8 08:52
学习，谢谢分享！

作者: 5988143 时间: 2013-10-8 10:05
小宝,国庆不休息?嘻嘻

作者: chenguobin 时间: 2013-10-8 11:04
谢谢分享

作者: t小宝 时间: 2013-10-8 21:15

轻风发表于 2013-10-8 08:39
好东西，谢谢分享。能问下代码是啥意思吗？

代码就是在OLE字段中创建一幅只有1个像素的图片

作者: wgh3g 时间: 2013-10-9 17:47
谢谢分享

作者: wgh3g 时间: 2013-10-9 17:48
谢谢分享

作者: koutx 时间: 2013-10-10 21:32

koutx 发表于 2013-10-7 21:30
谢谢分享,先坐个沙发

尚未试用，就耽心过多占用内存。

作者: yanwei82123300 时间: 2013-10-11 12:34
谢谢分享

作者: ヾ、_情つ 时间: 2013-11-8 20:24
学习了

作者: amesman 时间: 2014-3-13 20:20
下载学习下。

作者: 玉树TMD临风 时间: 2014-3-13 22:34
这个和条件格式不知道哪个更快点？

作者: wx0000888 时间: 2014-6-13 09:50
本帖最后由 wx0000888 于 2014-6-13 10:18 编辑

好例子，原来颜色可以自己修改，真的不错。

作者: zpy2 时间: 2014-6-14 05:38
好东东！！！！

作者: liumporite 时间: 2014-10-11 08:42
dddddddddddddddddddddd

作者: tzh1600 时间: 2014-10-11 10:57
学习学习

作者: efcndi 时间: 2014-10-23 15:26
看看学学

作者: 李力军2 时间: 2014-10-26 06:47
看看原理，谢谢LZ

作者: cumtclmk123 时间: 2015-1-30 21:17
看看

作者: 松湖烟雨 时间: 2015-11-5 18:03
学习学习

作者: Charline 时间: 2016-4-7 16:43
学习学习

作者: purplerose 时间: 2016-4-8 10:32
原来这个功能是您是作者呀，小宝历害！！^=^

作者: alps401 时间: 2016-5-13 11:54
有意义

作者: ardu95 时间: 2016-10-30 07:22
下载学习一下

作者: zhao__feng 时间: 2018-12-21 12:50
谢谢分享

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)