无效使用财产

Question

测试模块

Private Sub fooTest()

   Dim foo As cSegment
   Set foo = New cSegment

   foo.ParseSegment

   Debug.Print foo.Segment

End Sub

类

Option Explicit

Private pElements As Collection
Private pSegmentData As String

Public Property Let ParseSegment(value As String)
   pSegmentData = value
   ParseElements pSegmentData
End Property

我在foo.ParseSegment说“无效使用财产”

时收到错误

我不确定这里有什么问题，至于我的理解我的Let属性设置正确。有谁知道为什么我会收到此错误消息？

Answer 1

这是属性，而不是方法（Sub）。您试图将其称为方法。必须将属性分配分配给。

foo.ParseSegment = ""