我在 VS-2008 中创建了两个表单，login_F 和switchBoard_F. login_F是用户的登录表单，它验证用户的登录，然后witchBoard_F从函数中打开 s：
每当login_F，关闭它也关闭switchBoard_F。我希望 switchBoard_F一直打开并关闭s login_F，但我不知道switchBoard_F在我关闭 s 时哪个代码正在关闭我的login_F？
这是代码：
Private Sub SaveUSerInfo()
Dim cmd As New SqlCommand("sp_InsertLogReg", conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(New SqlParameter("@EmpID", My.Settings.UserID))
cmd.Parameters.Add(New SqlParameter("@sHostName", System.Net.Dns.GetHostName()))
cmd.Parameters.Add(New SqlParameter("@sUserName", System.Environment.UserName()))
cmd.Parameters.Add(New SqlParameter("@ApplicationName", My.Settings.gAppName))
'cmd.ExecuteNonQuery()
Dim newID As Integer = CInt(cmd.ExecuteScalar()) 'return LogRegID
'get UserGroup
Dim strSQL As String = "SELECT tblKOCEmp.EmpID, tblKOCEmp.Name, tblOrg.GroupName, tblOrg.Active"
strSQL = strSQL + " FROM tblKOCEmp "
strSQL = strSQL + " INNER JOIN tblOrg ON dbo.tblKOCEmp.OrgCode = dbo.tblOrg.OrgCode"
strSQL = strSQL + " WHERE (dbo.tblOrg.Active = 1)"
strSQL = strSQL + " AND (tblKOCEmp.EmpID =" + My.Settings.UserID + ")"
cmd = New SqlCommand(strSQL, conn)
cmd.CommandType = CommandType.Text
Dim dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If dr.HasRows Then
While dr.Read
If Not IsDBNull(dr.Item("Name")) Then
My.Settings.UserName = (dr.Item("Name"))
My.Settings.GroupName = (dr.Item("GroupName"))
End If
End While
End If
dr.Close()
My.Settings.LogRegID = newID 'store LogRegID to mySettings
switchBoard_F.Show()
login_F.Close()
End Sub