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
  • 相关阅读:
    Mvc form提交
    FlexiGrid 使用 全选、自动绑定
    Mysql Insert Or Update语法例子
    orderby与groupby同时使用
    SQLSTATE[HY000] [2002] No such file or directory in
    swoole安装
    关于商城分类查询表结构与数据查询
    查询数据库每张表的信息
    php 正则验证
    PHP代码优化
  • 原文地址:https://www.cnblogs.com/lizunicon/p/1230458.html
Copyright © 2011-2022 走看看