vb自定义类模块并添加事件

类模块儿和一般常用的控件一样都是一种对象,具有事件、属性等性质。因此学会创建类模块儿对象,在编程中是非常重要的。
下面的自定义模块儿实现:
增加一个text属性;并自动验证前后两次字符串变量是否一致的功能。
在testClass模块二中添加如下代码:
Option Explicit
'增加一个验证字符串事件
Public Event PropertyChanged(ByVal PropName As String, ByVal oldValue As String, ByVal newValue As String)
'声明变量
Private m_Text As String
'声明内部属性
'Public Property Get Text() As String
     'Text = m_Text
'End Property

━━━━━━━━━━━━━━━━━━━━━━━━━
'添加事件的调用
Public Property Let Text(ByVal n_Text As String)
    If n_Text <> m_Text Then
        Dim oldText As String
        oldText = m_Text
        m_Text = n_Text
        RaiseEvent PropertyChanged("Text", oldText, n_Text)
    End If
End Property

━━━━━━━━━━━━━━━━━━━━━━━━━
在窗体中添加如下代码:
Option Explicit
'声明具有事件的对象
Public WithEvents oTest As testClass

Private Sub Form_Load()
    '实例化对象变量,并进行两次赋值
    Set oTest = New testClass
    oTest.Text = "123"
    oTest.Text = "456"
End Sub

Private Sub otest_propertychanged(ByVal PropName As String, ByVal oldValue As String, ByVal newValue As String)
    'MsgBox  "oTest的属性 " &; PropName &;  "从 " &; oldValue &;  "变成 " &; newValue &;  " 了! "
    MsgBox "otest的属性" & ; PropName & ; "从 “ " & ; oldValue & ; "” 变成 “" & ; newValue & ; "” 了!"
End Sub