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

是否可以將用戶定義的屬性添加到My.Application或My.User對象？是否可以向My.Application或My.User添加屬性？

我有一些目前定義的屬性告訴我應用程序運行在什麼環境（即「開發」，「測試」，「生產」等），用戶是否是管理員等。似乎順理成章地得到這個東西像信息

Dim current = My.Application.EnviornmentName

或

If My.User.IsAdministrator Then ...

而不是讓它們在一個單獨的類定義，因爲他們現在的。有沒有辦法將我自己的屬性添加到這些對象？

來源

2009-11-25 gfrizzle

我不確定VB.NET，但VB.NET可以使用擴展嗎？如果是這樣，請使用它爲環境添加額外的功能。

希望這有助於最好的問候，湯姆

來源

2009-11-25 20:36:27 t0mm13b

是的，它可以看到http://msdn.microsoft.com/en-us/library/bb384936.aspx – ScottS 2009-11-25 20:39:43

正是我一直在尋找。我在我的項目的其他地方使用了擴展方法，在這個例子中，我甚至沒有將它應用。感謝您的正確方向。 – gfrizzle 2009-11-25 21:11:46

不客氣！祝你好運，你的編碼，gfrizzle。 :) – t0mm13b 2009-11-25 21:15:36

我敢肯定，你可以做這樣的事情，你需要重複的命名空間，我不知道是什麼樣的麻煩你會進入。

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

來源

2009-11-25 20:51:42 zimmer62

如何讓應用程序使用新類而不是標準用戶類？ – ScottS 2009-11-26 09:14:08

我必須仔細檢查，但是當我嘗試這個時，它看起來像兩個都可用。通過繼承標準ApplicationServices.User，它將獲得orig類的所有屬性。這基本上是擴展這個類 – zimmer62 2009-11-29 17:16:02

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

回答

相關問題