Class : クラスを定義します

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．をつけるときがあります