VB.NET中如何使用类属性

本篇文章给大家分享的是有关VB.NET中如何使用类属性,小编觉得挺实用的,因此分享给大家学习,希望大家阅读完这篇文章后可以有所收获,话不多说,跟着小编一起来看看吧。

我们提供的服务有:成都做网站、成都网站制作、微信公众号开发、网站优化、网站认证、郊区ssl等。为成百上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的郊区网站制作公司

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. Get  

  3. Dim i As Integer  

  4. Dim s As String  

  5. s = Join(strHobby, ",") 
    '这个函数就是用来连接数组中的字符串的  

  6. Return s  

  7. End Get  

  8. End Property 

VB.NET类属性3、

  1. '这是定义索引器呀!  

  2. Public ReadOnly Property indexHobby
    (ByVal index As Integer) As String  

  3. Get  

  4. If (strHobby Is Nothing) Or (index > 
    UBound(strHobby)) Then  

  5. '注意到上面的UBound()了没?还有LBound()!  

  6. '它们所在的命名空间是Microsoft.VisualBasic  

  7. Return Nothing  

  8. End If  

  9. Return strHobby(index)  

  10. End Get  

  11. End Property 

VB.NET类属性4、

  1. Public WriteOnly Property wHobby() 
    As String  

  2. Set(ByVal value As String)  

  3. If value Is Nothing Then  

  4. If Not (strHobby Is Nothing) And 
    strHobby.GetLength(0) > 1 Then  

  5. ReDim Preserve strHobby(UBound
    (strHobby) - 1)  

  6. End If  

  7. Else  

  8. If strHobby Is Nothing Then  

  9. ReDim strHobby(0)  

  10. Else  

  11. ReDim Preserve strHobby(UBound
    (strHobby) + 1)  

  12. End If  

  13. strHobby(UBound(strHobby)) = value  

  14. End If  

  15. End Set  

  16. End Property 

5、

  1. Default Public Property Words
    (ByVal index As Integer) As 
    String'注意Default  

  2. Get '注意到参数了吗?使用这个属性的时候,
    就跟实现了索引器效果一样。
     

  3. Words = theWords(index)  

  4. End Get  

  5. Set(ByVal value As String)  

  6. theWords(index) = value  

  7. End Set  

  8. End Property 

以上就是VB.NET中如何使用类属性,小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注创新互联行业资讯频道。


网站标题:VB.NET中如何使用类属性
文章URL:http://bzwzjz.com/article/gcsech.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 成都网站制作 响应式网站设计 宜宾网站设计 成都网站设计 成都网站设计公司 高端定制网站设计 盐亭网站设计 网站设计制作 成都网站设计 成都网站建设公司 手机网站制作 网站制作 重庆电商网站建设 成都网站设计 成都营销网站制作 定制级高端网站建设 重庆网站制作 响应式网站设计方案 网站建设 成都企业网站设计 专业网站设计 app网站建设