Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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

时 间:2023-06-04 08:01:25
作 者:福哥   ID:1784  城市:成都
摘 要:对象,类,模块,类模块。
正 文:

     群友托我介绍个对象,手上暂时没有合适的资源,于是我自创一招,介绍给了群友。群友修炼之后,瞬间就有了对象,要啥对象有啥对象。现在介绍给大家,希望大家早点找到对象,长话短说,详见附件……

附   件:

点击下载此附件


'关于类的简单说明:你想有个女朋友(类),你的女朋友是小花(对象),小花来了(类初始化),小花很漂亮(属性),小花亲了你一下(方法),小花亲完了你(事件),小花走了(类终止)。

顺带说明:
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



Access软件网官方交流QQ群 (群号:483923997)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助