7,759
社区成员
发帖
与我相关
我的任务
分享
Private mvarmVal As String '属性变量
Public Event ValChange(vData As String)'通知事件
Public Property Let mVal(ByVal vData As String)
mvarmVal = vData
RaiseEvent ValChange(vData)
End Property
Public Property Get mVal() As String
mVal = mvarmVal
End Property
5 添加一个类clsH.Cls , 这个类仅仅是个接口, 没有多少功能的.属性默认, 代码如下: Public Property Get GetCls() As Variant
If gCLS1 Is Nothing Then
Set gCLS1 = New cls1
End If
Set GetCls = gCLS1
End Property
... Dim WithEvents ss As cls1'ss,事件通知我们数据改变
Dim cc As clsH '连接器对象
'按这个按钮,修改cls1(ss)的属性值
Private Sub Command1_Click()
ss.mVal = Time
End Sub
'初始连接器cc,初始cls1,事件分发对象ss
Private Sub Form_Load()
Set cc = New clsH
Set ss = cc.GetCls
End Sub
'接受到数据改变事件
Private Sub ss_ValChange(vData As String)
Form1.Caption = ss.mVal
End Sub
4 编译生成工程吧 , 我交cli.exe