在锁屏时出现怪异的现象,锁屏不起作用,菜单锁屏代码:
Forms("锁屏").Open() '开启锁屏窗口
BaseMainForm.Visible = False '隐藏主界面
锁屏窗口中按钮代码:
Dim UserName As String = e.Form.Controls("Label1").Text
Dim lo = Tables("用户表").Find(UserName,0,"用户名",False,True,False)
Dim dr = DataTables("用户表").DataRows(lo)
If e.Form.Controls("TextBox1").Text = dr("密码") Then
e.Form.Close
BaseMainForm.Visible = True '隐藏主界面
Else
Messagebox.show("密码错误,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
锁屏界面:
此主题相关图片如下:qq截图20130802145658.png

现在打开项目后单击锁屏菜单按钮,只能出现一个锁屏窗口,主窗口却没有隐藏,输入解锁密码后,主窗口却隐藏了,锁屏窗口也不见了。
请教怎么改正呢?