Est-il possible d'ajouter des propriétés à My.Application ou My.User?

Question

Est-il possible d'ajouter des propriétés définies par l'utilisateur aux objets My.Application ou My.User? J'ai certaines propriétés définies actuellement qui me disent dans quel environnement l'application fonctionne (ie "Développement", "Test", "Production", etc.), si l'utilisateur est un administrateur, etc. semble logique pour obtenir cette information de quelque chose comme

Dim current = My.Application.EnviornmentName 

ou

If My.User.IsAdministrator Then ... 

au lieu de les avoir définis dans une catégorie distincte car ils sont maintenant. Est-il possible d'ajouter mes propres propriétés à ces objets?

Answer 1

Je ne suis pas sûr de VB.NET mais VB.NET peut-il utiliser des extensions? Si c'est le cas, utilisez-le pour ajouter des fonctionnalités supplémentaires à l'environnement.

Hope this helps, Meilleures salutations, Tom

Answer 2

Je suis sûr que vous pouvez faire quelque chose comme cela, vous devrez répéter l'espace de noms, et je ne sais pas quel genre de problèmes, vous Je vais entrer.

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