连续窗体各行显示不同颜色
时 间: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
效果图:
示例文件:
连续窗体各行显示不同颜色.rar
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)