VBscript 类的设计（二）

忙着找工作，直到周末才有空。现在来继续我们的vbscript类的设计。上一次我们已经设计出了一个简单的日期类，但是还存在一些使用
上的问题。现在我们针对这些问题来更改我们的设计。这次我们要解决的问题是：
1、如果用户指定的classdate不是日期型，那么日期就会变成1900年1月1日；
2、如果显示多个日期，表单对象的名字不能是一样的；
3、最好加入CSS；
下面分别讨论
一、在上一次我们设计的dataclass 里，我们定义了一个public型的变量 classdate 来表示日期，用户可以自由地对classdate 进行值和
读取，这样就无法判断用户所赋的值是不是正确的了。现在我们把重定义一个变量 cldate 改成 private 型，这样用户就无法直接访问cldate
了。如下：
private cldate
为了能够让用户访问到classdate，上一次提到了 property ，现在我们就用它来构造二个函数，一个是让用户对classdate
赋值的函数，叫classdate。定义如下：
pbulic property let classdate(fdate)
...
end property
另一个函数是让用户读取cldate，定义如下：
public property get classdate()
...
end property
好，定义好函数后，就可以来写代码了，在 let classdate 里，主要是判断用户输入的是不是日期型，如下：
public property let classdate(fdate)
if typename(fdate)="Date" then
cldate=fdate
end if
end property
在 get classdate 里，主要是把cldate 的值赋给函数：如下：
public property get classdate()
classdate=cldate
end property

如果没有给clname赋值呢？也就是当这个类刚生成的时候，clname是个空值，这里介绍一下类初始化和终止时的自动进程：clas_initialize
和 class_terminate。第一个进程是生成类里自动执行的，第二个是类消灭时自动执行的。这里只要用到第一个进程。如下：
private sub class_initialize()
cldate=now()
end private
这样，类生成的时候，如果没有对clname赋值，那么clname就是当前的日期。
二、为了在表单里显示出多个日期，我们要区分每次生成的日期对象，也就是取个名字。在这里我们定义一个private型的变量 clname 来
定义生成的表单控件的名字。定义如下：
private clname
同样的，要让用户能访问到clname变量，也要定义两个函数，方法和classdate的相同。代码如下：