「VBScript入門」クラス(Class)を利用するサンプル

書式
Class クラス名{
Dim メンバー変数1
Dim メンバー変数2
Public Property Let 関数名
}
サンプルコード

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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
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
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