日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
VB.NET自定義屬性應(yīng)用方式解析

VB.NET編程語(yǔ)言的出現(xiàn)，在一定程度上改變了編程人員的編寫(xiě)習(xí)慣，它靈活的編寫(xiě)方式提高了編程效率。我們?cè)谶@里就會(huì)為大家?guī)?lái)關(guān)于VB.NET自定義屬性的應(yīng)用方式，希望能方便大家的理解。

創(chuàng)新互聯(lián)建站專(zhuān)注于蚌埠企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站開(kāi)發(fā),商城網(wǎng)站制作。蚌埠網(wǎng)站建設(shè)公司,為蚌埠等地區(qū)提供建站服務(wù)。全流程按需網(wǎng)站建設(shè)，專(zhuān)業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，創(chuàng)新互聯(lián)建站專(zhuān)業(yè)和態(tài)度為您提供的服務(wù)

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

 
 
 
    
  
  
  
  1. Imports System   
    2. 
  
  
  
  2. Imports System.Reflection   
    3. 
  
  
  
  3. < AttributeUsage(AttributeTargets.
    All, AllowMultiple:=True, 
    Inherited:=True)> _   
    4. 
  
  
  
  4. Public Class Class1   
    5. 
  
  
  
  5. Inherits System.Attribute   
    6. 
  
  
  
  6. Private FamilyName As String   
    7. 
  
  
  
  7. Private GivenName As String   
    8. 
  
  
  
  8. Public Sub New(ByVal Family
    Name As String)   
    9. 
  
  
  
  9. Me.FamilyName = FamilyName   
    10. 
  
  
  
  10. End Sub   
    11. 
  
  
  
  11. Public Overrides Function 
    ToString() As String   
    12. 
  
  
  
  12. Return String.Format("Author:
    {0}{1}", FamilyName, GivenName)   
    13. 
  
  
  
  13. End Function   
    14. 
  
  
  
  14. Public Property Family() As String   
    15. 
  
  
  
  15. Get   
    16. 
  
  
  
  16. Return FamilyName   
    17. 
  
  
  
  17. End Get   
    18. 
  
  
  
  18. Set(ByVal Value As String)   
    19. 
  
  
  
  19. FamilyName = Value   
    20. 
  
  
  
  20. End Set   
    21. 
  
  
  
  21. End Property   
    22. 
  
  
  
  22. Public Property Given() As String   
    23. 
  
  
  
  23. Get   
    24. 
  
  
  
  24. Return GivenName   
    25. 
  
  
  
  25. End Get   
    26. 
  
  
  
  26. Set(ByVal Value As String)   
    27. 
  
  
  
  27. GivenName = Value   
    28. 
  
  
  
  28. End Set   
    29. 
  
  
  
  29. End Property   
    30. 
  
  
  
  30. End Class  
    31.

使用VB.NET自定義屬性的文件（Form3.VB）

 
 
 
    
  
  
  
  1. < Class1("Watkins", Given:="Damien"), 
    Class1("Abrams")> _   
    2. 
  
  
  
  2. Public Class Form3   
    3. 
  
  
  
  3. Inherits System.Windows.Forms.Form   
    4. 
  
  
  
  4. Private Sub Button1_Click(ByVal sender 
    As System.Object, ByVal e As System.
    EventArgs) Handles Button1.Click   
    5. 
  
  
  
  5. Dim t As TypeType = Type.GetType
    ("WindowsApplication6.Form3")   
    6. 
  
  
  
  6. Dim attributes As Object() = 
    t.GetCustomAttributes(True)   
    7. 
  
  
  
  7. Console.WriteLine("Custom 
    Attributes are: ")   
    8. 
  
  
  
  8. For Each o As Object 
    In attributes   
    9. 
  
  
  
  9. Console.WriteLine(o)   
    10. 
  
  
  
  10. Next   
    11. 
  
  
  
  11. End Sub   
    12. 
  
  
  
  12. End Class  
    13.

VB.NET自定義屬性的具體應(yīng)用方式就為大家介紹到這里。

【編輯推薦】

  1. VB.NET異常迭代捕捉代碼示例
  2. VB.NET共享成員變量創(chuàng)建技巧解析
  3. 范例解讀VB.NET獲取環(huán)境變量
  4. VB.NET抓取網(wǎng)頁(yè)相關(guān)問(wèn)題解決方法
  5. VB.NET讀取內(nèi)存具體代碼編寫(xiě)方法

新聞標(biāo)題：VB.NET自定義屬性應(yīng)用方式解析
當(dāng)前URL：http://www.dlmjj.cn/article/cogjosg.html