一般我们设置登入窗体即为启动窗体:
如:一个窗体为FrmLogin.vb,我们设置它为启动窗体
当用户名和密码正确的时候,我们才进入主窗体:FrmMainWindows.vb。这样我们启动完主窗体时,FrmLogin窗体就只能是Hide了,不能将其关闭,因为关闭了就是将整个程序关闭了(它是启动窗体,将启动窗体关闭就是关闭整个程序)
我们可以在主窗体即FrmMainWindows中编写代码:
Public Shared Sub main()
'显示登录对话框
Dim loginFrm As FrmLogin = New FrmLogin
loginFrm.ShowDialog()
'合法进入系统
If loginFrm.bResult = True Then
Dim frm As FrmMainWindows = New FrmMainWindows
Application.Run(FrmMainWindows)
End If
End Sub
在FrmLogin中:
Public bResult As Boolean = False
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click