编写拥抱变化的代码（一）

夜行

争取写一个小系列，看一下反响程度哈，当然高手可以飘过哈。

毫无疑问，这样的标题出来，应该是基于类的，在个人认为基于模块的VBA代码，就好象一个毫无基础的人，直接打开EXCEL在电子表格里乱图乱画一样（说这样的话会不会被人拍砖？一家之言，不必当真哈，呵呵），当然每个写VBA代码的人都是这样过来的，我只在指出一条另外的路径供大家参考。同时唠叨一句，VBA的功能还是很强大的，当然其性能有天然的缺点，但我们又不是用它来发射火箭，够用了。


先看一个小例子：长方体的类Cuboid
属性：底面积 高
private are
private hig

方法：求体积与初始化方法
Function volume()
    volume = are * hig
End Function


Function init(area, high)
    are = area
    hig = high
End Function


这是一个小巧的类，但有一些隐患在其中，我们是假想体积等于面积*高，面积是基于我们初始化传入的参数，然后这参数在我们的类中被肆意的到处引用，当然这个类只是举例，所以简化了这面积参数只用来求体积，如果这个类中有一个长的属性，从而有一个用它来求宽的方法，基于此还有一个求周长的方法，甚至被引用到其他的类中作为接口……
可以想象如果我们传入的参数不是一个面积的概念，会怎样？所有基于它的方法都会出错，需要重新修改，因此它需要一个约束

要依赖行为，不依赖数据
每一个细小的行为都只能存在于一个地方，“避免重复”（DRY），OO中的这一说法是对这一思想的简捷描述。
类包含数据与行为，数据可以是任何内容（包括简单的字符串或数值或者复杂的数组），访问类的数据有两种方法：直接引用或者将其包裹在访问器方法里。


我们应该总是将其包裹在访问器方法里，而不是直接引用这些变量，具体如下：
Private are
Private hig

Property Get area()
    area = are
End Property

Property Get high()
    high = hig
End Property

Function volume()
    volume = area * high   '请大家注意这一行的不同，它是用了访问器的方法，而不是直接引用类数据变量
End Function

……

现在访问器area方法便是这段代码里唯一可以理解are含义的地方，实现此方法之后，are则由被四处引用的数据变成了只被定义了一次的行为，如果传入的面积参数需要进行加工时，只要在访问器中加工一次就解决了。

这种处理方法当然也会有其他的一些新问题，但不管怎样，你都应该将数据隐藏起来，这种做法能保护代码避免它们受到意想不到的变化的影响，外部数据很常情况下不是我们能控制的。

好吧，第一次就先唠叨到这吧，谢谢大家捧场哈……

liucqa

可以继续，多写点

liu-aguang

期待.............

xd3210

期待…………

夜行

谢谢楼上三位大大的捧场哈……下一篇安排在这周末或下周哈……最近股市弄人啊……嘿……

as42065300

类模块不错要顶...最近刚好也在写些简单的类刚好在学习下！！！

sunny_8848

先标记下，有空学习

yuk_yu

期待中.......

夜行

第二篇地址如下：
http://club.excelhome.net/thread-1200435-1-1.html

wzb5566

收藏，帮顶