VBA 半透明背景独占登录画面

时　间:2012-08-20 03:31:07
作　者:dbaseIIIer   ID：22003  城市：深圳
摘　要:看到 2008年的文章 http://www.accessoft.com/article-show.asp?id=2796 居然那么久以前就有人做半透明了！但是我不知道那个时候是用来干什么的！不过，现在我给大家使用的就是用来做登入背景的。可以让用户专注在你的程序上的！
正　文:

半透明窗体就好多年前有人在 Access 里面实现了！Access软件网就在2008年一篇文章有教大家怎么做的了！不过今天可以看我这个应用，是利用了没边框的窗体作背景，让用户把注意力都集中在你的对话框里面！

在你的对话框里面就很简单就可以调用了：

Private Sub Form_Open(Cancel As Integer)
    LightBoxForm.Show ' 显示半透明背景
End Sub

Private Sub Form_Unload(Cancel As Integer)
    LightBoxForm.Hide ' 隐藏半透明背景
End Sub

可以自己改颜色，透明度，全屏、或视窗模式：

全屏模式是

视窗模式是：

附件有 mdb版，和accdb版。

mdb版

accdb版

如果第一次打开没有显示背景的话，请设置VBA的信任关系。