परीक्षण मॉड्यूल

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 संपत्ति सही ढंग से सेटअप है। क्या किसी को पता है कि मुझे यह त्रुटि संदेश क्यों मिल रहा है?

-1
Maldred 18 अप्रैल 2018, 17:22

1 उत्तर

सबसे बढ़िया उत्तर

यह एक संपत्ति है, न कि एक विधि (उप)। आप इसे एक विधि की तरह कॉल करने का प्रयास कर रहे हैं। संपत्ति का कार्य सौंपा जाना चाहिए।

foo.ParseSegment = ""
2
RBarryYoung 18 अप्रैल 2018, 17:50