VBScriptではクラスを作ることができます。
publicとかprivateなどの可視性も定義できました。
VBScriptを侮っていたのですが、意外と色々と揃ってて、Windowsで何かしたいときは便利なのかもしれません。
データ型という概念はありません。
VBScriptのクラスは以下のような構文で作ります。
[codebox title=”コード”]
Class クラス名
'中に色々書く
End Class
[/codebox]
使う側は、
Set 変数名 = New クラス名
という使い方をします。
クラスのインスタンスを解放するには、
Set 変数名 = Nothing
と書きます。
C#にもあったデストラクタという機能は使えます。
デストラクタとは、クラスのインスタンス解放時に自動的に実行される特別なプロシージャのことです。
デストラクタは
[codebox title=”コード”]
Private Sub Class_Terminate()
End Sub
[/codebox]
という構文で定義します。
コンストラクタは
[codebox title=”コード”]
Private Sub Class_Initialize()
End Sub
[/codebox]
という構文で定義します。
サンプルを作ってみます。
[codebox title=”コード”]
Option Explicit
Dim clazzA
Dim clazzB
Set clazzA = New SampleClass
Set clazzB = New SampleClass
clazzA.setValue1 = 100
clazzA.setValue2 = 300
clazzA.add
clazzB.setValue1 = 7000
clazzB.setValue2 = 8000
WScript.Echo "インスタンス1の結果↓"
clazzA.showResult
WScript.Echo "インスタンス2の結果" & clazzA.add
Class SampleClass
Dim val1
Dim val2
Dim sum
'コンストラクタ
Private Sub Class_Initialize()
val1 = 0
val2 = 0
End Sub
Private Sub Class_Terminate()
WScript.Echo "デストラクタ"
End Sub
Public Property Let setValue1(value)
val1 = value
End Property
Public Property Let setValue2(value)
val2 = value
End Property
'メソッドの戻り値は、メソッド名と同じ変数に入れればいい
Public Function add()
sum = val1 + val2
add = sum
End Function
Public Function showResult()
WScript.Echo "結果は：" & sum
End Function
End Class
[/codebox]
これを実行すると、以下のように表示されます。
Microsoft (R) Windows Script Host Version 5.8 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. インスタンス1の結果↓ 結果は：400 インスタンス2の結果400 デストラクタ デストラクタ ***** script completed - exit code: 0 *****
