成人午夜视频全免费观看高清-秋霞福利视频一区二区三区-国产精品久久久久电影小说-亚洲不卡区三一区三区一区

VB.NET如何自定義屬性

這篇文章主要介紹了VB.NET如何自定義屬性,具有一定借鑒價(jià)值,感興趣的朋友可以參考下,希望大家閱讀完這篇文章之后大有收獲,下面讓小編帶著大家一起了解一下。

樂(lè)亭網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),樂(lè)亭網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為樂(lè)亭上1000家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站建設(shè)要多少錢(qián),請(qǐng)找那個(gè)售后服務(wù)好的樂(lè)亭做網(wǎng)站的公司定做!

類(lèi)文件:(Class1)

  1. Imports System   

  2. Imports System.Reflection   

  3. < AttributeUsage(AttributeTargets.
    All, AllowMultiple:=True, 
    Inherited:=True)> _   

  4. Public Class Class1   

  5. Inherits System.Attribute   

  6. Private FamilyName As String   

  7. Private GivenName As String   

  8. Public Sub New(ByVal Family
    Name As String)   

  9. Me.FamilyName = FamilyName   

  10. End Sub   

  11. Public Overrides Function 
    ToString() As String   

  12. Return String.Format("Author:
    {0}{1}", FamilyName, GivenName)   

  13. End Function   

  14. Public Property Family() As String   

  15. Get   

  16. Return FamilyName   

  17. End Get   

  18. Set(ByVal Value As String)   

  19. FamilyName = Value   

  20. End Set   

  21. End Property   

  22. Public Property Given() As String   

  23. Get   

  24. Return GivenName   

  25. End Get   

  26. Set(ByVal Value As String)   

  27. GivenName = Value   

  28. End Set   

  29. End Property   

  30. End Class  

使用VB.NET自定義屬性的文件(Form3.VB)

  1. < Class1("Watkins", Given:="Damien"), 
    Class1("Abrams")> _   

  2. Public Class Form3   

  3. Inherits System.Windows.Forms.Form   

  4. Private Sub Button1_Click(ByVal sender 
    As System.Object, ByVal e As System.
    EventArgs) Handles Button1.Click   

  5. Dim t As TypeType = Type.GetType
    ("WindowsApplication6.Form3")   

  6. Dim attributes As Object() = 
    t.GetCustomAttributes(True)   

  7. Console.WriteLine("Custom 
    Attributes are: ")   

  8. For Each o As Object 
    In attributes   

  9. Console.WriteLine(o)   

  10. Next   

  11. End Sub   

  12. End Class  

感謝你能夠認(rèn)真閱讀完這篇文章,希望小編分享的“VB.NET如何自定義屬性”這篇文章對(duì)大家有幫助,同時(shí)也希望大家多多支持創(chuàng)新互聯(lián),關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道,更多相關(guān)知識(shí)等著你來(lái)學(xué)習(xí)!

標(biāo)題名稱(chēng):VB.NET如何自定義屬性
文章URL:http://jinyejixie.com/article36/jjpipg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供小程序開(kāi)發(fā)、網(wǎng)站營(yíng)銷(xiāo)網(wǎng)站收錄、服務(wù)器托管手機(jī)網(wǎng)站建設(shè)網(wǎng)站設(shè)計(jì)

廣告

聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話(huà):028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)

成都seo排名網(wǎng)站優(yōu)化
宜黄县| 镇坪县| 双江| 驻马店市| 桑植县| 中超| 理塘县| 皮山县| 麦盖提县| 西宁市| 渝北区| 铁力市| 安达市| 元谋县| 元谋县| 澳门| 广水市| 汉源县| 葫芦岛市| 新晃| 万荣县| 罗源县| 炎陵县| 文山县| 鄂托克前旗| 灌云县| 花莲市| 甘南县| 柘荣县| 武冈市| 张家港市| 桐城市| 卓资县| 梨树县| 彩票| 镇宁| 丰都县| 江口县| 纳雍县| 瓦房店市| 宝坻区|