将变量从代码的一部分传递到另一部分

用户名

如何设置变量，然后在后面的代码的另一部分中检索该变量？我试图在LoginUser_Authenticate部分中设置变量，然后在LoginUser_LoginError部分中检查变量。

Protected Sub LoginUser_Authenticate(sender As Object, e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles LoginUser.Authenticate

    If (Membership.ValidateUser(UserName.Text, Password.Text)) And (CurrentUser IsNot Nothing) Then

        // set variable

    else

        // set variable

    End If

End Sub
---------------------------------------------------------------------------------
Protected Sub LoginUser_LoginError(ByVal sender As Object, ByVal e As System.EventArgs) Handles LoginUser.LoginError

    LoginUser.FailureText = "Invalid Username or Password - Please Try Again"

    Dim CurrentUser As MembershipUser = Membership.GetUser(LoginUser.UserName)

    If (CurrentUser IsNot Nothing) And ***VARIABLE FROM ABOVE*** Then

        If (CurrentUser.IsLockedOut = True) Then
            LoginUser.FailureText = "Your account has been locked - Contact the system administrator"
        ElseIf (CurrentUser.IsApproved = False) Then
            LoginUser.FailureText = "Your account is disabled - Contact the system administrator"
        End If

    End If

End Sub

蒂姆·施密特（Tim Schmelter）

使用属性或字段，例如，使用Boolean变量：

Private Property IsAuthorized As Boolean

Protected Sub LoginUser_Authenticate(sender As Object, e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles LoginUser.Authenticate
    If Membership.ValidateUser(UserName.Text, Password.Text) AndAlso CurrentUser IsNot Nothing Then
        IsAuthorized  = True
    Else
        IsAuthorized = False
    End If
End Sub

Protected Sub LoginUser_LoginError(ByVal sender As Object, ByVal e As System.EventArgs) Handles LoginUser.LoginError
   ' ... '
    If IsAuthorized  Then
       ' ... '
    End If
End Sub

属性概述

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。