zoukankan      html  css  js  c++  java
  • VB.NET之类属性

    有三种需要举例的

    1.  
      Public Property Rank() As String '注意这里的属性名后面有个括号
              Get
                  
      Return strPos
              
      End Get
              
      Set(ByVal value As String)
                  strPos 
      = value
              
      End Set
          
      End Property


    2. Public ReadOnly Property rHobby() As String    'Readonly要在Property前面
              Get
                  
      Dim i As Integer
                  
      Dim s As String
                  s 
      = Join(strHobby, ",")    '这个函数就是用来连接数组中的字符串的
                  Return s
              
      End Get
          
      End Property


       
      3、

      '这是定义索引器呀!
          Public ReadOnly Property indexHobby(ByVal index As IntegerAs String
              
      Get
                  
      If (strHobby Is NothingOr (index > UBound(strHobby)) Then
                      
      '注意到上面的UBound()了没?还有LBound()!
                      '它们所在的命名空间是Microsoft.VisualBasic
                      Return Nothing
                  
      End If
                  
      Return strHobby(index)
              
      End Get
          
      End Property

      4、

          Public WriteOnly Property wHobby() As String
              
      Set(ByVal value As String)
                  
      If value Is Nothing Then
                      
      If Not (strHobby Is NothingAnd strHobby.GetLength(0> 1 Then
                          
      ReDim Preserve strHobby(UBound(strHobby) - 1)
                      
      End If
                  
      Else
                      
      If strHobby Is Nothing Then
                          
      ReDim strHobby(0)
                      
      Else
                          
      ReDim Preserve strHobby(UBound(strHobby) + 1)
                      
      End If
                      strHobby(
      UBound(strHobby)) = value
                  
      End If
              
      End Set
          
      End Property


       5、

      Default Public Property Words(ByVal index As IntegerAs String'注意Default
              Get '注意到参数了吗?使用这个属性的时候,就跟实现了索引器效果一样。<ClassObj(index)>
                  Words 
      = theWords(index)
              
      End Get
              
      Set(ByVal value As String)
                  theWords(index) 
      = value
              
      End Set
          
      End Property
  • 相关阅读:
    线程池参数详解
    线程池各个参数详解以及如何自定义线程池
    fastdfs 安装
    SQL 执行顺序
    《SQL 进阶教程》 查找局部不一致的数据
    redis 高性能的原因
    一致性hash
    环境部署数据库报错
    redis 常用命令
    redis 高级学习和应用场景
  • 原文地址:https://www.cnblogs.com/lizunicon/p/1230458.html
Copyright © 2011-2022 走看看