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

vb自定义类模块并添加事件
类模块儿和一般常用的控件一样都是一种对象,具有事件、属性等性质。

因此学会创建类模块儿对象,在编程中是非常重要的。

下面的自定义模块儿实现:
增加一个text属性;并自动验证前后两次字符串变量是否一致的功能。

在testClass模块二中添加如下代码:
Option Explicit
'增加一个验证字符串事件
Public Event PropertyChanged(ByVal PropName As String, B yVal 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 Stri ng, ByVal oldValue As String, ByVal newValue As String) 'MsgBox "oTest的属性 " &; PropName &; "从 " &; oldValue &; "变成 " &; newValue &; " 了! "
MsgBox "otest的属性" & ; PropName & ; "从“" & ; oldValue & ; "”变成“" & ; newValue & ; "”了!"
End Sub。