ET类实例一[读写属性返回四大战队名]

作者：绿色风分类：时间：2022-08-18 浏览：96

楼主 liuguansky	第一步，插入类模块，在属性修改类名为ET 在代码编辑栏里输入如下代码： Private 战队$, t$'定义变量 Public Property Get y() As String'设置属性读 y = t End Property Public Property Get x() As String'设置属性读 x = 战队 End Property Public Property Let x(ByVal c As String)'设置属性写战队 = c End Property Private Sub Class_Initialize()'初始化变量值战队 = "无敌战队" t = "战队" End Sub 插入一个模块，进行读写示例： Sub CoName() Dim u As New ET, i$'ET实体化，定义临时变量 MsgBox u.x'读X属性的初始值 u.x = "卓越战队"'X属性赋值 MsgBox u.x'读属性X u.x = "新视野战队"'x属性赋值 i = u.x'读属性赋变量值 MsgBox i u.x="" MsgBox u.x & "SK" & u.y'读X,Y属性值，并接连。 End Sub 示例文件如下：桌面.rar
2楼 kevinchengcw	不错啊，类都写出来了，再写点深入的
3楼 liuguansky	3 恩，会的。到时候加上战队人员与称称。
4楼水星钓鱼	类，我来啦。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表