代码之家 › 专栏 › 技术社区 › gfrizzle

是否可以将属性添加到my.application或my.user?

properties .net-3.5 .net

0

gfrizzle · 技术社区 · 16 年前

是否可以将用户定义的属性添加到my.application或my.user对象?

我目前已经定义了一些属性,这些属性告诉我应用程序正在运行的环境(例如“开发”、“测试”、“生产”等)、用户是否是管理员等。从诸如

Dim current = My.Application.EnviornmentName

或

If My.User.IsAdministrator Then ...

而不是像现在这样在单独的类中定义它们。有没有办法向这些对象添加我自己的属性?

2 回复 | 直到 16 年前

1

2

t0mm13b 16 年前

我不确定vb.net,但是vb.net可以使用扩展吗?如果是这样,可以使用它为环境添加额外的功能。

希望这有帮助, 最好的问候, 汤姆

2

0

zimmer62 16 年前

我很确定您可以这样做,您需要重复名称空间,我不知道您会遇到什么样的麻烦。

Namespace My
Public Class User
    Inherits Microsoft.VisualBasic.ApplicationServices.User
    Public Shared Function IsAdministrator() As Boolean
        Dim myUser As New Microsoft.VisualBasic.ApplicationServices.User
        If myUser.IsAuthenticated Then
            If myUser.IsInRole("Administrators") Then
                Return True
            End If
            Return False
        End If
    End Function
End Class
End Namespace