ACCESS 程序制作SPLASH屏

最近搞一个 ACCESS 的简单界面程序, 也想搞个 SPLASH 屏, ACCESS 没有 VB 中带的 SPLASH 窗体, 所以需要自己创建一个, 由于加载时间很短, 并且没有循环等密集运算, 所以 DOEVENT 是做不到了, 后来想到一个有意思的办法:

建立一个窗体, 设定无边框样式.

使用两个窗体事件 form_load 和 form_timer, 以下是代码:

private sub form_load()

form.timerinterval=1000

end sub

private sub form_timer()

form.timerinterval=0

'加载程序

end sub

就是不在form_load事件中加载程序, 而使用timer触发.

form.timerinterval=1000 '设置触发时间为1秒, timer 事件是按 timerinterval 的时间为触发条件.

在 timer 事件要记得设置 timerinterval 为 0, 这样可以停止 timer 事件, 不然每隔一秒就要执行一次程序了.

很简单, 也算个小技巧吧.