VBA编程-如果你想有个对象-关于类模块的简单说明

smileyoufu

群友托我介绍个对象，手上暂时没有合适的资源，于是我自创一招，介绍给了群友。群友修炼之后，瞬间就有了对象，要啥对象有啥对象。现在介绍给大家，希望大家早点找到对象，长话短说，详见附件……
'关于类的简单说明：你想有个女朋友（类），你的女朋友是小花（对象），小花来了（类初始化），小花很漂亮（属性），小花亲了你一下（方法），小花亲完了你（事件），小花走了（类终止）。

顺带说明：
1.Access和VB6的使用方法基本相同，基本属于无缝对接，很多功能都可以通用。
2.附件的2个例子，使用的都是相同的类模块，效果完全相同。


Private WithEvents 小花 As c女朋友    '声明一个带事件的类模块
Private Sub btn欢迎小花_Click()
    Set 小花 = New c女朋友    '实例化类，用New关键字，创建一个小花，作为对象
'设置对象属性
    小花.姓名 = "小花"
    小花.年龄 = 18
    '调用对象方法
    小花.亲一下
    '小花.长相 = "白富美"’长相是只读属性，不允许自定义
End Sub
Private Sub Form_Unload(Cancel As Integer)
   Set 小花 = Nothing '销毁对象
   Access.Quit
End Sub
'触发对象事件
Private Sub 小花_亲完了(姓名 As String)
    MsgBox "小花亲完了触发的事件"
End Sub

accben

好例，谢谢分享！