Question

VBA 写了一个简单的类，对属性先let再get，可是在let中总是提示“属性使用无效”

小女子刚刚学习类。。。。想写一个试试，照着别人的例子写了之后总是在let方法赋值给属性的时候提示“属性使用无效”。。。。求大侠帮忙看看 不甚感激！
类的代码：
Public X%
Public Property Get GetXValue() As Integer
GetXValue = X
End Property
Public Property Let SetXValue(ByVal SetValue As Integer)
X = SetXValue '运行的时候就在“SetXValue”处选中，然后提示“属性使用无效”！！！！
End Property

模块中的代码：
Sub TestClass()
Dim X As Integer
Dim MyClass As New TryClass
X = 5
MyClass.SetXValue = 5
Debug.Print MyClass.GetXValue

End Sub

Answer 1

属性可以带参数，且可以带任意个数，比如在sheet1的代码中定义以下属性。为了方便起见，我虽然定义了两个参数，但实际只用了一个。注意get 和 let、set的参数的数量、名称、类型必须一致，对let或set，参数的排列顺序是自己的参数排在前面。
1
2
3
4
5
6
7
8
9
Dim arr(1 To 2) As String

Public Property Get a(n As Integer, n1 As Integer) As String
a = arr(n)
End Property

Public Property Let a(n As Integer, n1 As Integer, ByVal vNewValue As String)
arr(n) = vNewValue
End Property
然后在其他地方就可以这样调用属性（注意只用了第一个参数，第二参数随便写的）
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Sheet1.a(1, 88) = "我"
Sheet1.a(2, 24) = "你"

MsgBox Sheet1.a(1, 32)
MsgBox Sheet1.a(2, 55)
End Sub
这时会弹出两次对话框，分别显示 我 和 你。

Answer 2

X = SetXValue 是错误的, setxvalue 你定义的是属性名称, 应该是X = SetValue