窗体背景图片多为手工选择图片切换或根据用户不同背景图片不同,由于我做的数据库在公司使用时,很多用户是只读用户,而且长期用同一图片会有厌烦,切换又不方便。
近日忽发奇想:能不能让数据库每天自动更换背景图片呢?琢磨良久,终于实现,现予发布供坛友分享。
示例中借用了论坛老师的设计,在此一并谢过!
制作方法:
1、准备靓图,编号1—7
2、将窗体背景图片路径设为:Me.Picture = CurrentProject.Path & "\backpic\" & Weekday(Date) & ".jpg",即可实现每日打开数据库时,窗体背景图片自动切换。
3、定义窗体全局变量mydate,窗体加载事件中赋值:mydate = Date,在窗体双击事件中,输入代码:
mydate = mydate + 1
Me.Picture = CurrentProject.Path & "\backpic\" & Weekday(mydate) & ".jpg"
即可实现双击窗体右边切换下一张图片、双击窗体左边切换上一张图片。
4、如果想一月一轮换,那就要准备31张图片,修改相应语句即可。
附 件:
10秒钟自动切换示例
演 示: