タグ: Lotus Script

　Lotus Scriptのクラスは、VBScriptと異なっているところが多いです。

Lotus Script 言語

Class クラス名 As 元クラス　’別のクラスから引き継ぐことができます

　’最初に実行されます
　Sub New （変数名 As 型）．元クラス （変数名 As 型）　’値を受け取ることができます
　End Sub

　’最後に実行されます
　Sub Delete （）
　End Sub

　Public Sub 戻り値がない関数名 （変数名 As 型）
　End Sub

　Public Function 戻り値がある関数名 （変数名 As 型） As 型
　　Me.戻り値がある関数名 ＝ 戻り値　’値を返します
　End Function

　Public Property Set プロパティ名 As 型
　　変数名 ＝ Me.プロパティ名　’値を受け取ります
　End Property

　Public Property Get プロパティ名 As 型
　　Me.プロパティ名 ＝ 戻り値　’値を返します
　End Property

End Class

　何も指定しないと Private、ByRef になります。
　現在のクラスのなかで現在のクラスで定義された関数・プロパティ・変数を使うには、名前の先頭に Me. をつければＯＫです

VbScript 言語

Class クラス名　’独立したクラスとして作成します

　’最初に実行されます
　Sub Class_Initialize （）　’値を受け取れません
　End Sub

　’最後に実行されます
　Sub Class_Terminate （）
　End Sub

　Sub 戻り値がない関数名 （変数名）
　End Sub

　Function 戻り値がある関数名 （変数名）
　　戻り値がある関数名 ＝ 戻り値　’値を返します
　End Function

　Public Property Set プロパティ名　’Set はオブジェクトを受け取ります
　　Set 変数名 ＝ プロパティ名　’値を受け取ります
　End Property

　Public Property Let プロパティ名　’Let はオブジェクト以外を受け取ります
　　変数名 ＝ プロパティ名　’値を受け取ります
　End Property

　Public Property Get プロパティ名
　　プロパティ名 ＝ 戻り値　’値を返します
　End Property

End Class

　なにも指定しないと Public、ByRef になります。
　現在のクラスで定義されたプロパティをつかうときに、名前の先頭に Me. をつけるときがあります