vb自定义类模块

2019-04-13 20:52发布

站内文章 / 模拟电子
17701 0 1273
类模块儿和一般常用的控件一样都是一种对象，具有事件、属性等性质。因此学会创建类模块儿对象，在编程中是非常重要的。 下面的自定义模块儿实现： 增加一个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
   

热门文章