「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

VBScript

Posted by arkgame