如何为类编写多参数属性并在模块中调用赋值呢？

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

楼主
0Mouse

Q：如何为类编写多参数属性并在模块中调用赋值呢？
A：插入一个类模块，将名称改成“ClsCell”（不包括双引号），在其代码窗口内粘贴以下代码：

Dim lNewValue1 As Long, lNewValue2 As Long, sNewValue3 As String
Public Property Let xqoa(i1 As Long, i2 As Long, ByVal s3 As String)
lNewValue1 = i1
lNewValue2 = i2
sNewValue3 = s3
End Property
Public Property Get Row() As Long
Row = lNewValue1
End Property
Public Property Get Col() As Long
Col = lNewValue2
End Property
Public Property Get Color() As String
Color = sNewValue3
End Property

再插入一个模块，在其代码窗口内粘贴以下代码：

Sub 为类编写多参数属性并在模块中调用赋值()
Dim MyCell As ClsCell
Set MyCell = New ClsCell
With MyCell
.xqoa(5, 3) = "Red" '为属性赋值
MsgBox .Row & " " & .Col & " " & .Color '读取属性值
End With
End Sub

将插入点置于模块代码内的任意位置，按<F5>键查看运行效果。
附件：

为类编写多参数属性并在模块中调用赋值.rar

免责声明

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

评论列表