用例子中的“自定义用户管理之一”建一个小系统,使用一个模式窗口作为登录后的主界面,发现用户登录后,主界面后面的用户登录窗口还是没有消失,且不能移动,
请问如去除这个空的用户登录窗口?
以下这段代码是放在用户登录窗口的“确定”按钮中
If
e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
e.Form.Close
If
Forms("测试窗口").Opened Then
Else
Forms("测试窗口").Open
End If
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
此主题相关图片如下:用户登录窗口.jpg
![dvubb 按此在新窗口浏览图片](UploadFile/2020-10/202010510142584931.jpg)