关于Class_WriteProperties事件

[xayzmb]

下面是一个类中的代码:
为什么在关闭程序时
没有触发Class_WriteProperties事件
(已将类的Instancing属性已设为 5 - MultiUse
persistable属性设为 1 )

Option Explicit
Dim strT As String
Private myT As Variant

Public Property Get myTest() As String
myTest = strT
PropertyChanged "myTest"
End Property

Public Property Let myTest(newTest As String)
strT = newTest
PropertyChanged "myTest"
End Property


Private Sub Class_ReadProperties(PropBag As PropertyBag)
myTest = PropBag.ReadProperty("myTest", myT)
End Sub


Private Sub Class_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "myTest", myTest, myT
End Sub

哪位解决了与这个贴子一起给分http://topic.csdn.net/u/20080409/15/6b7a5a24-2e84-4749-90be-bc73dbdf5d2d.html

[xayzmb]

按照MSDN的解释
"如果类中的某个属性被调用了 PropertyChanged，那么在类终止运行的时候 WriteProperties 事件将被触发。
"
可是上面的代码为什么不能触发WriteProperties事件呢?

[xayzmb]

问题已经自已解决了
进来的前十名有分

[VBToy]

接分！更希望分享一下楼主的解决方法。

[迈克揉索芙特]

我从微软找到的文章不对么？
接分再说