Is it possible to add properties to My.Application or My.User?

Question

Is it possible to add user-defined properties to the My.Application or My.User objects?

I've got some properties defined currently that tell me what environment the app is running in (i.e. "Development", "Testing", "Production", etc.), whether the user is an administrator, etc. It would seem logical to get this info from something like

Dim current = My.Application.EnviornmentName

or

If My.User.IsAdministrator Then ...

instead of having them defined in a separate class as they are now. Is there any way to add my own properties to these objects?

Answer 1

I am not sure about VB.NET but can VB.NET use extensions? if so, use that to add on extra functionality to the Environment.

Hope this helps, Best regards, Tom

Answer 2

I'm pretty sure you can do something like this, you'll need to repeat the namespace, and I don't know what kind of trouble you'll get into.

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