一般我们设置登入窗体即为启动窗体:
如:一个窗体为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
Dim badduser As New BLL.b_AddDelUser
Dim eadduser As New Entity.e_AddUser
eadduser.UserName = Trim(txtUser.Text)
eadduser.UserPwd = Trim(txtPwd.Text)
If (badduser.CheckUser(eadduser)) Then
bResult = True
Me.Close()
Else
MsgBox("请输入正确的用户名和密码!","提示")
txtUser.Focus()
Exit Sub
End If
End Sub
再将启动项设置为Sub Main
原文链接:https://www.f2er.com/vb/260768.html