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

时　间:2013-10-07 21:34:12
作　者:t小雨   ID：4598  城市：柳州
摘　要:连续窗体各行显示不同颜色
正　文:

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

效果图：

示例文件：