菜单锁屏单击事件:
CurrentTable.Grid.Findform.Visible = False '隐藏主界面
Forms("锁屏").Open() '开启锁屏窗口
锁屏窗口单击事件:
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
CurrentTable.Grid.Findform.Visible = True '显示主界面
Else
Messagebox.show("密码错误,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
现在问题就是运行单击菜单锁屏后,主界面和锁屏窗口都隐藏了,是怎么回事?能不能只隐藏主窗口,不隐藏锁屏窗口呢?锁屏窗口是我自己建的一个模式窗口。
很急,求指教啊!!!