Lotus Script的面向对象编程的一个小例子

Published by admin on 04月 29, 2010

众所周知，LS是兼容VB的，并且是VB的超集。因此从语法到内置函数都与VB相同。不过LS因为Domino的原因可以跨平台使用，而VB就不行了。

今天不讨论LS与VB孰优孰劣，而是讲讲两者共有的特性–面向对象的编程。本文只讨论LS的面向对象编程。其实，在Designer的帮助中就讲解了编写class的语法，不过好像大部分人都不去看。


LS类的编写语法如下：

Class BaseClass

‘构造函数

SubNew (X As Integer)

EndSub

‘析构函数

Sub Delete

End Sub

End Class

上面这是LS类的语法，解释一下:
Class : 声明这是一个类。
BaseClass：类的名称。
Sub New() : 构造函数。创建对象时先执行这段程序。
Sub Delete():析构函数。删除对象是执行这段程序。
End Class: 声明这个类到此结束。

基本语法都有了，下面我们就编个简单的类来测试一下。
新建一个空表单，在表单中增加一个按钮。在按钮的Declarations中声明一个BaseClass类,如下。
Class BaseClass

PrivateiNum As Integer



Subnew(iInteger As Integer)

Me.iNum= iInteger

Msgbox”Initializing.iNum=” + Cstr(iNum)

End Sub



Sub Delete

Msgbox”Delete”

End Sub
End Class
然后在click事件中写如下代码：

Dimnewbase As BaseClass

Setnewbase = New BaseClass(1)

Deletenewbase
然后运行程序测试一下。
文章很短，因为关于面向对象的编程内容是很丰富的，一篇文章根本不足以讲清楚。大家有兴趣可以参看帮助里的User-Defined Data Types and Classes 这节的内容，这里边讲得很清楚，大家多实践，多练习，很快就能掌握。