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

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

新聞中心

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

也許還有很多人對(duì)于VB.NET這樣一款編程語(yǔ)言還不太了解。它是一款功能成強(qiáng)大的語(yǔ)言，直接面向?qū)ο?，并且可以?chuàng)造一個(gè)結(jié)構(gòu)性比較牢固的編程化境。我們今天要為大家介紹的是VB.NET類屬性相關(guān)概念。其中有以下幾種需要舉例的。#t#

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

VB.NET類屬性1、

  1. Public Property Rank() As String 
    '注意這里的屬性名后面有個(gè)括號(hào)  
  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, ",") 
    '這個(gè)函數(shù)就是用來(lái)連接數(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()了沒(méi)？還有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ù)了嗎？使用這個(gè)屬性的時(shí)候，
    就跟實(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.

文章標(biāo)題：舉例介紹VB.NET類屬性詳細(xì)內(nèi)容
文章源于：http://www.5511xx.com/article/cogspgo.html