我制作了一个自定义控件,现在要加入一个boolean型的属性,但出现了一些问题,始终加不进行.见代码

Question

Option ExplicitPrivate mvarYesNo As BooleanPublic Property Let YesNo(ByVal vData As Boolean)
    mvarYesNo = vData
    
    PropertyChanged "YesNo"
End PropertyPublic Property Get YesNo() As Boolean
    YesNo = mvarYesNo
End PropertyPrivate Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Debug.Print PropBag.ReadProperty("YesNo", "")
    YesNo = PropBag.ReadProperty("YesNo", "")
End Sub当执行到UserControl_ReadProperties事件的ReadProperty方法时报错"类型不匹配",请问应该怎么加入boolean型的属性给自定义控件?谢谢!

Answer 1

YesNo = PropBag.ReadProperty("YesNo", False)