以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  当前用户更改成功，请重新登录后，如何退出系统跳到登录见面  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124302)
--  作者：susu312
--  发布时间：2018/9/4 10:03:00
--  当前用户更改成功，请重新登录后，如何退出系统跳到登录见面

If userOrgan = _UserOrgan   AndAlso userRole = _UserRole    AndAlso userName = _UserName  Then
                         Messagebox.show("当前用户更改成功,请重新登录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                         e.Form.Close
                         basemainform.visible = False
                         Forms("用户登录").Open()
                         RibbonTabs.SelectedTab = RibbonTabs("首页")
                         Forms("单位管理").Close
                         Forms("单位管理").Open
                         Forms("部门管理").Close
                         Forms("部门管理").Open
                         Forms("用户管理主窗口").Close
                         Forms("用户管理主窗口").Open                   
                   Else

 

 

红色那部分代码没起作用，还是留个框，
--  作者：有点甜
--  发布时间：2018/9/4 10:16:00
--  

改成

 

e.Form.BaseForm.Opacity = 0

e.Form.Close