全局代码
Public Class UserInfo
Public Shared Name As String
Public Shared Group As String
Public Shared Roles As String
' Public Shared Default As Boolean
Public Shared Type As UserTypeEnum
Public Shared ExtendedValues As String
Public Shared Function isRole(r As String) As Boolean
Dim result As Boolean = False
Dim Values() As String
Values = roles.split(",")
For Index As Integer = 0 To Values.Length - 1
If values(Index) = r Then
result = True
Exit For
End If
Next
Return result
End Function
End Class
Public user As UserInfo