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

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)化
江津市| 仙游县| 淮安市| 海林市| 龙门县| 义马市| 凉城县| 青铜峡市| 三都| 无锡市| 石景山区| 甘肃省| 德安县| 奈曼旗| 梁平县| 广西| 湄潭县| 花莲市| 和林格尔县| 阳高县| 凤台县| 望城县| 龙口市| 桃源县| 安岳县| 安龙县| 封开县| 忻城县| 新野县| 定安县| 颍上县| 洞头县| 吕梁市| 平谷区| 佛山市| 泰顺县| 临夏市| 扶绥县| 密云县| 平南县| 同江市|