基礎解説 チェック式 WSH入門　第9回 4．メソッドを定義する Microsoft MVP Visual Developer - Scripting 牟田口 大介 2007/02/15
Page1 Page2 Page3 Page4

　メソッドの定義はSubステートメントを用いる。Subプロシージャと基本は同じであるが、クラスの外部から呼び出し可能という意味があるPublicキーワードを併用する（省略してもよい）。

Option Explicit Class Sample     'Captionプロパティ。     Public Caption     'Showメソッド。     Public Sub Show()         MsgBox Me.Caption     End Sub End Class 'オブジェクト変数の宣言。 Dim objSample1 'オブジェクトの作成。 Set objSample1 = New Sample 'オブジェクトのプロパティに値を代入。 objSample1.Caption = "ひどいゲマー！" 'オブジェクトのメソッドを実行。 objSample1.Show 'オブジェクト変数の破棄。 Set objSample1 = Nothing

　このスクリプトを実行すると次のような結果が得られる。

メソッドの実行例

Showメソッドによりメッセージ・ボックスが表示される。

　ここではSubステートメントを使って、Showメソッドを定義している。Meキーワードには、クラスがインスタンス化されたときのオブジェクトが代入される。ここではそのCaptionプロパティを参照し、その内容をメッセージ・ボックスとして表示している。

　このサンプルでは引数のない単純なメソッドを1つ定義しただけだが、実際は引数を持つメソッドを複数定義することが可能である。

　最後に、今回の総まとめとして1つのクラスを作成し、そのインスタンスを扱ってみよう。ここでは、「円」を表すクラスCircleを考える。Circleクラスには半径を表すRadiusプロパティ、直径を表すDiameterプロパティ、面積を表すAreaプロパティを設ける。この中でRadiusプロパティだけは値の設定も可能にしたい（半径が決まると、直径と面積も決まるからである）。また、Circleオブジェクトの詳細をメッセージ・ボックスで表示させるメソッドShowDetailを用意する。ShowDetailには引数として何の要素（半径？ 直径？ 面積？ 全部？）を得るかを指定できるようにする。これらの要件を満たすクラスを記述していく。

マーカーで隠れたところを、１つずつクリックしてチェックしてみよう。 Option Explicit 'クラス名:Circleを定義する。     'プライベート変数m_dblRadius（円の半径）を宣言。     'プライベート変数m_dblPi（円周率）を宣言。     'クラスのコンストラクタ。         '円周率の値と、半径のデフォルト値を設定。         m_dblPi = 4 * Atn(1)         m_dblRadius = 0     End Sub     'Diameterプロパティ（円の直径）の値を取得。         '円の直径＝（半径）× 2         Diameter = m_dblRadius * 2     'Areaプロパティ（円の面積）の値を取得。         '円の面積＝（半径）×（半径）× （円周率）         Area = m_dblRadius ^ 2 * m_dblPi     'Radiusプロパティ（円の半径）の値を設定。         '数値以外のものが代入された場合、型不一致エラーを発生させる。         If IsNumeric(Value) Then             m_dblRadius = Value         Else             Err.Raise 13         End If     'Radiusプロパティ（円の半径）の値を取得。         Radius = m_dblRadius     'ShowDetailメソッドを定義。円オブジェクトの詳細を表示する。     '引数strElementには取得する値の種類を文字列で指定する。     Public Sub ShowDetail(strElement)         'strElementに格納された文字列によって場合分け。             Case "Radius"                 MsgBox "半径：" & Me.Radius             Case "Diameter"                 MsgBox "直径：" & Me.Diameter             Case "Area"                 MsgBox "面積：" & Me.Area             Case Else                 MsgBox "半径：" & Me.Radius & vbCrLf & _                        "直径：" & Me.Diameter & vbCrLf & _                        "面積：" & Me.Area     End Sub 'オブジェクト変数objCircle1を宣言。 Dim objCircle1 'objCircle1にCircleクラスのインスタンスを代入。 'Radiusプロパティに値を代入。 objCircle1.Radius = 2 'Areaプロパティを参照。 MsgBox "円の面積は、" & objCircle1.Area 'ShowDatailメソッドの呼び出し。 objCircle1.ShowDetail "" 'オブジェクトの破棄。

　少し長いスクリプトになったが、いかがだろうか？ クラスを定義し、そのインスタンスを作成しオブジェクトとして扱う一連の手順を追ってもらいたい。

　今回はVBScriptにおけるオブジェクトの利用法と、その設計図であるクラスを記述する方法について学んだ。次回からはスクリプト・ホストとしてのWSHが持つオブジェクトについて、その詳細と使い方について説明していく。　

INDEX
	［基礎解説］チェック式 WSH入門
	第9回　VBScriptのオブジェクトを使いこなす
	1．オブジェクトとは
	2．VBScriptにおけるエラー処理
	3．クラスを自作する
	4．メソッドを定義する

　

基礎解説

＠ITメールマガジン　新着情報やスタッフのコラムがメールで届きます（無料）