VBApropertyget/let/set可以带多个参数吗?还有怎么给它们赋值?

推荐回答

<p>属性可以带参数，且可以带任意个数，比如在sheet1的代码中定义以下属性。为了方便起见，我虽然定义了两个参数，但实际只用了一个。注意get 和 let、set的参数的数量、名称、类型必须一致，对let或set，参数的排列顺序是自己的参数排在前面。</p> Dim arr(1 To 2) As StringPublic Property Get a(n As Integer, n1 As Integer) As String a = arr(n)End PropertyPublic Property Let a(n As Integer, n1 As Integer, ByVal vNewValue As String) arr(n) = vNewValueEnd Property<p>然后在其他地方就可以这样调用属性（注意只用了第一个参数，第二参数随便写的）</p> Private Sub CommandButton1_Click() Sheet1.a(1, 88) = "我" Sheet1.a(2, 24) = "你" MsgBox Sheet1.a(1, 32) MsgBox Sheet1.a(2, 55)End Sub<p>这时会弹出两次对话框，分别显示 我 和 你。</p>