[已解决]类模块的两个问题。

silenthunter

以下两种方法，普通模块的写法一样，但类模块的写法却完全不同。显然第2种类模块的写法简单得多。
请教这两种方法各自原理是什么，哪一种比较好？

第1种方法：
普通模块：
Private Sub Classtest()
Dim Rect As New Rectanglee_1
Rect.Gao = 11
MsgBox Rect.Gao, vbInformation
End Sub
类模块：
Dim Heightt As Double, Lengthh As Double
Property Let Gao(h)
Heightt = h
End Property
Property Get Gao()
Gao = Heightt
End Property
=========================
第2种方法：
普通模块：
Private Sub classtest2()
Dim Rect As New Rectanglee_2
Rect.Gao = 11
MsgBox Rect.Gao, vbInformation
End Sub
类模块：
Public Gao As Double

最佳答案

月排行榜 / 总排行榜

Zipall

2013-12-19 18:20

主要的区别有两点
1 读写分开,可以分别设置权限,例如设置某个属性为只读.
2 let或get里不仅仅可以赋值,还可以添加一些计算过程,例如长度单位换算(米换成毫米),数据格式修改等等.

跳转到最佳答案楼层

amesman

第一种方法好,定义属性，利于数值安全

silenthunter

amesman 发表于 2013-12-19 16:10
第一种方法好,定义属性，利于数值安全

你好。什么是利于安全？我不考虑黑客的。

liuguansky

VBA差异不大，上面是属性设定方式，下面是直接赋值为一个字段。

leolee82

第一种可以定义只读属性, 用户不能读,类中可以改. 一般用于保存一些类的状态
小程序无所谓 自己知道类怎样用

hoogle

其实差不多

Zipall

主要的区别有两点
1 读写分开,可以分别设置权限,例如设置某个属性为只读.
2 let或get里不仅仅可以赋值,还可以添加一些计算过程,例如长度单位换算(米换成毫米),数据格式修改等等.