- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 发布后的程序系统菜单及功能还在怎么去掉？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106940)
-- 发布时间：2017/9/18 16:05:00
-- 发布后的程序系统菜单及功能还在怎么去掉？
按范例设置登录窗口（模式窗口）登录后该窗口关闭，打开程序主窗口（独立模式窗口）。功能都已正常实现，发布程序后主窗口能正常显示，但主窗口后面还显示着软件的工作界面，不知道如何去掉？
-- 发布时间：2017/9/18 16:17:00
--
见下图，发布的时候，没有选择“生成系统菜单”，结果就显示下面这样了。
此主题相关图片如下：qq截图20170918161519.jpg
-- 发布时间：2017/9/18 16:39:00
--
麻烦老师们给看一下呗。
-- 发布时间：2017/9/18 17:06:00
--
将菜单设计中程序菜单、快速访问栏等的可见属性设为FALSE
-- 发布时间：2017/9/18 17:13:00
--
我根本就没有设计过菜单。我只想让他显示一个独立窗口，不需要其他任何界面显示出来。
-- 发布时间：2017/9/18 17:16:00
--
以下是登录窗口的代码，标红处的代码直接单独放到按钮里执行是正常的，只显示这个窗口内容，但放到登录验证后密码通过后再打开该窗口就会显示多余的菜单。
-- 发布时间：2017/9/18 17:17:00
--
If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
e.Form.Close
Forms("窗口1").open()
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
-- 发布时间：2017/9/18 17:37:00
--
1、窗口1 改成模式窗口；
2、代码改成
If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
e.Form.BaseForm.Opacity = 0
e.Form.Close
Forms("窗口1").open()
basemainform.close
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
-- 发布时间：2017/9/18 23:24:00
--
我看了您 的代码，但我觉得关闭当前窗口，打开另一个窗口应该 是很简单的为什么 要
basemainform.close 和 e.Form.BaseForm.Opacity = 0 这个呢？
-- 发布时间：2017/9/19 8:57:00
--
1、模式窗口打开模式窗口，会有问题，需要设置 e.Form.BaseForm.Opacity = 0
2、basemainform是foxtable的主窗口，你关闭模式窗口后，要把foxtable的窗口也一起关闭，才行。