Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

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

时 间: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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助