Question

是否可以将用户定义的属性添加到My.Application或My.User对象？

我目前已经定义了一些属性，告诉我应用程序运行的环境（即“开发”，“测试”，“生产”等），用户是否是管理员等等。从

这样的信息中获取此信息似乎是合乎逻辑的

Dim current = My.Application.EnviornmentName

或

If My.User.IsAdministrator Then ...

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

Answer 1

我不确定VB.NET但是VB.NET可以使用扩展吗？如果是这样，请使用它为环境添加额外的功能。

希望这有帮助，最好的祝福，汤姆

Answer 2

我很确定你可以做这样的事情，你需要重复命名空间，我不知道你会遇到什么样的麻烦。

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

是否可以向My.Application或My.User添加属性？

2 个答案: