半透明窗体就好多年前有人在 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的信任关系。