vb自定义类模块

前端之家收集整理的这篇文章主要介绍了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 newValue As String)
'    MsgBox "oTest的属性" & PropName & "从" & oldValue & "变成" & newValue & " 了!"
    MsgBox "otest的属性" & PropName & "从 “ " & oldValue & "” 变成 “" & newValue & "” 了!"
End Sub

猜你在找的VB相关文章