「VBScript入門」クラス(Class)を利用するサンプル
書式
Class クラス名{
Dim メンバー変数1
Dim メンバー変数2
Public Property Let 関数名
}
サンプルコード
Option Explicit Dim cft 'クラスのオブジェクトcft Set cft = New User 'setUsernme関数を利用 cft.setUserName = "admin user" 'setAge関数を利用 cft.setAge = "35" '関数を呼び出す cft.outMsg Set cft = Nothing 'クラスUserの定義 Class User 'メンバー変数 Dim username Dim age '初期値 Private Sub Class_Initialize() username = "common user" age = "25" End Sub 'setUserName関数 Public Property Let setUserName(uname) username = uname End Property 'setAge関数 public Property Let setAge(agePa) age = agePa End Property 'outMsg関数 Public Function outMsg() WScript.Echo "username value: " & username & ", age value: " + age End Function End Class
実行結果
username value: admin user ,age value:35