连续窗体各行显示不同颜色

t小宝

有网友一直在研究连续窗体各行根据颜色值显示颜色的问题，特作此例，实现在连续窗体上，每一行输入不同的颜色值即可显示不同的颜色。
要实现该功能需要在表中加一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

效果图：

示例文件：

游客，如果您要查看本帖隐藏内容请回复

koutx

谢谢分享,先坐个沙发

smileyoufu

下载学习一下

tmtony

小宝又出精品了,支持!!!

轻风

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

chuang0321

不错！{:soso_e179:}

wang1950317

学习，谢谢分享！

5988143

小宝,国庆不休息?嘻嘻

chenguobin

谢谢分享

t小宝

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

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