VB类模块中属性的参数——VBA中Range对象的Value属性和Value2属性的一点区别

在VB中，属性是可以有参数的，而VBA中属性使用参数非常常见。比如最常用的：Worksheet.Range("A1:A10")

VB的语法，使用参数的不一定是方法，也有可能是属性！(虽然属性的本质是方法)

例一：参数当作“索引”使用

定义一个类模块，模块名称Ints。为简化模型，使用了只读属性。

 Private arr() As Integer

 Public Property Get ArrValue(Index As Integer) As Integer

     ArrValue = arr(Index)

 End Property

 '初始化arr(3)的值

 Private Sub Class_Initialize()

     arr() =

     arr() =

     arr() =

     arr() =

 End Sub

调用：

 Sub Test()

     Dim c As New Ints

     Debug.Print c.ArrValue()   'ArrValue是属性，并且带有参数( 索引 )

     '输出结果=3

 End Sub

例2：可选参数
定义一个类模块，模块名称MyCal。

这个类的作用是计算两个数的和，当加数为负数时，使加数=0 (示例使用，没多少实际意义）

 Private m As Integer

 Private n As Integer

 Public Property Get intm() As Integer

     intm = m

 End Property

 Public Property Let intm(ByVal xvalue As Integer)

     m = xvalue

 End Property

 Public Property Get intn(Optional b As Boolean = False) As Integer

     intn = n

 End Property

 '加数为负数时，n赋值为0

 Public Property Let intn(Optional b As Boolean = False, ByVal xvalue As Integer)

     If b And n <=  Then

         n =

     Else

         n = xvalue

     End If

 End Property

 '计算两个数的和

 Public Function MySum() As Integer

       MySum = intm + intn

 End Function

调用：

 Sub Test()

 Dim c As New MyCal

 c.intm =

 c.intn = -

 Debug.Print c.MySum    '输出 0

 c.intm =

 c.intn(True) = -

 Debug.Print c.MySum    '输出 4

 End Sub

VBA中Range对象的Value就是有可选参数的属性

而Range对象的另外一个属性Value2是非参数化的属性

Value属性参数的意义：

巴特西

VB类模块中属性的参数——VBA中Range对象的Value属性和Value2属性的一点区别

最新文章

热门文章