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

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
舉例介紹VB.NET類屬性詳細內容

也許還有很多人對于VB.NET這樣一款編程語言還不太了解。它是一款功能成強大的語言，直接面向對象，并且可以創(chuàng)造一個結構性比較牢固的編程化境。我們今天要為大家介紹的是VB.NET類屬性相關概念。其中有以下幾種需要舉例的。#t#

創(chuàng)新互聯(lián)主營運城網(wǎng)站建設的網(wǎng)絡公司,主營網(wǎng)站建設方案,重慶APP軟件開發(fā),運城h5微信小程序開發(fā)搭建,運城網(wǎng)站營銷推廣歡迎運城等地區(qū)企業(yè)咨詢

VB.NET類屬性1、

  1. Public Property Rank() As String 
    '注意這里的屬性名后面有個括號  
  2. Get  
  3. Return strPos  
  4. End Get  
  5. Set(ByVal value As String)  
  6. strPos = value 
  7. End Set  
  8. End Property 

VB.NET類屬性2、

 
 
 
      
  
  
  1. Public ReadOnly Property rHobby() As 
    String 'Readonly要在Property前面  
    2.   
  
  
  2. Get  
    3.   
  
  
  3. Dim i As Integer  
    4.   
  
  
  4. Dim s As String  
    5.   
  
  
  5. s = Join(strHobby, ",") 
    '這個函數(shù)就是用來連接數(shù)組中的字符串的  
    6.   
  
  
  6. Return s  
    7.   
  
  
  7. End Get  
    8.   
  
  
  8. End Property 
    9.

VB.NET類屬性3、

 
 
 
      
  
  
  1. '這是定義索引器呀！  
    2.   
  
  
  2. Public ReadOnly Property indexHobby
    (ByVal index As Integer) As String  
    3.   
  
  
  3. Get  
    4.   
  
  
  4. If (strHobby Is Nothing) Or (index > 
    UBound(strHobby)) Then  
    5.   
  
  
  5. '注意到上面的UBound()了沒？還有LBound()!  
    6.   
  
  
  6. '它們所在的命名空間是Microsoft.VisualBasic  
    7.   
  
  
  7. Return Nothing  
    8.   
  
  
  8. End If  
    9.   
  
  
  9. Return strHobby(index)  
    10.   
  
  
  10. End Get  
    11.   
  
  
  11. End Property 
    12.

VB.NET類屬性4、

 
 
 
      
  
  
  1. Public WriteOnly Property wHobby() 
    As String  
    2.   
  
  
  2. Set(ByVal value As String)  
    3.   
  
  
  3. If value Is Nothing Then  
    4.   
  
  
  4. If Not (strHobby Is Nothing) And 
    strHobby.GetLength(0) > 1 Then  
    5.   
  
  
  5. ReDim Preserve strHobby(UBound
    (strHobby) - 1)  
    6.   
  
  
  6. End If  
    7.   
  
  
  7. Else  
    8.   
  
  
  8. If strHobby Is Nothing Then  
    9.   
  
  
  9. ReDim strHobby(0)  
    10.   
  
  
  10. Else  
    11.   
  
  
  11. ReDim Preserve strHobby(UBound
    (strHobby) + 1)  
    12.   
  
  
  12. End If  
    13.   
  
  
  13. strHobby(UBound(strHobby)) = value  
    14.   
  
  
  14. End If  
    15.   
  
  
  15. End Set  
    16.   
  
  
  16. End Property 
    17.

5、

 
 
 
      
  
  
  1. Default Public Property Words
    (ByVal index As Integer) As 
    String'注意Default  
    2.   
  
  
  2. Get '注意到參數(shù)了嗎？使用這個屬性的時候，
    就跟實現(xiàn)了索引器效果一樣。
     
    3.   
  
  
  3. Words = theWords(index)  
    4.   
  
  
  4. End Get  
    5.   
  
  
  5. Set(ByVal value As String)  
    6.   
  
  
  6. theWords(index) = value  
    7.   
  
  
  7. End Set  
    8.   
  
  
  8. End Property 
    9.

網(wǎng)頁名稱：舉例介紹VB.NET類屬性詳細內容
路徑分享：http://m.5511xx.com/article/cogspgo.html