自动更换窗体背景图片
2016年8月26日
作者: 来源:
窗体背景图片多为手工选择图片切换或根据用户不同背景图片不同,由于我做的数据库在公司使用时,很多用户是只读用户,而且长期用同一图片会有厌烦,切换又不方便。 近日忽发奇想:能不能让数据库每天自动更换背景图片呢?琢磨良久,终于实现,现予发布供坛友分享。 制作方法: 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张图片,修改相应语句即可。
阅读:1021
上一则:命令按钮与列表框组合的菜单栏示例
下一则:如何给窗体生成快捷菜单
|