群友托我介绍个对象,手上暂时没有合适的资源,于是我自创一招,介绍给了群友。群友修炼之后,瞬间就有了对象,要啥对象有啥对象。现在介绍给大家,希望大家早点找到对象,长话短说,详见附件……
附 件:
点击下载此附件
'关于类的简单说明:你想有个女朋友(类),你的女朋友是小花(对象),小花来了(类初始化),小花很漂亮(属性),小花亲了你一下(方法),小花亲完了你(事件),小花走了(类终止)。
顺带说明:
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 Su