日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

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

新聞中心

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

VB.NET編程語言的出現(xiàn),在一定程度上改變了編程人員的編寫習慣,它靈活的編寫方式提高了編程效率。我們在這里就會為大家?guī)黻P于VB.NET自定義屬性的應用方式,希望能方便大家的理解。

創(chuàng)新互聯(lián)建站專注于蚌埠企業(yè)網(wǎng)站建設,響應式網(wǎng)站開發(fā),商城網(wǎng)站制作。蚌埠網(wǎng)站建設公司,為蚌埠等地區(qū)提供建站服務。全流程按需網(wǎng)站建設,專業(yè)設計,全程項目跟蹤,創(chuàng)新互聯(lián)建站專業(yè)和態(tà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  

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

【編輯推薦】

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

本文標題:VB.NET自定義屬性應用方式解析
分享網(wǎng)址:http://www.5511xx.com/article/cogjosg.html