怎么用属性更改事件来触发一个事件？比如一个按钮的color值变时触发一个事件？

Question

怎么用属性更改事件来触发一个事件？比如一个按钮的color值变时触发一个事件？
比如一个按钮的caption改变时触发一个事件？
请大家指教，以上谢谢！

Answer 1

按钮控件没有change事件，所以要监控其属性的变化好像只能用timer控件来不断的监控，如果其属性改变，则触发某事件。只能想到这个办法，期待大侠高见！

Answer 2

是自定义控件的话,你在Property Let 中RaiseEvent即可Option Explicit
Private mCaption As String
Event Test()
Public Property Get Caption() As String
Caption = mCaption
End PropertyPublic Property Let Caption(ByVal s As String)
mCaption = s
RaiseEvent Test
End Property