此主题相关图片如下：1.png

 
       Messagebox.show("密码修改成功，请重新登录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

       e.form.close
       basemainform.visible = False
       Forms("用户登录").Open()
       lockbasemainform
       Dim ls As new List(Of String)
       For Each dt As DataTable In DataTables
           If dt.Type = 5 Then
              ls.add(dt.name)
           End If
       Next
       For Each s As String In ls
          DataTables.Unload(s)
       Next
       Forms("单位管理").Close
       Forms("部门管理").Close
       Forms("用户管理主窗口").Close
       Forms("历史库管理窗口").Close
       Forms("人员管理窗口").Close
       Forms("统计查询主窗口").Close
       Forms("首页").Close
       Forms("首页").Open
       RibbonTabs.SelectedTab = RibbonTabs("首页")
       unlockbasemainform

在红色位置就是上图效果

改成

e.Form.BaseForm.Opacity = 0

e.Form.Close