|
例1
新規ブックにて、
クラスモジュール作成してください(クラス名は、既定名のClass1)
このClass1のモジュールには
'==========================================================
Option Explicit
Function method_add(x As Double, y As Double) As Double
method_add = x + y
End Function
という足し算の答えを返す method_add というメソッドだけです。
標準モジュールに
Sub test1()
Dim cls As Class1
Set cls = New Class1
MsgBox cls.method_add(15, 23)
MsgBox cls.aaa(15, 12)
End Sub
これを実行すると、
MsgBox cls.aaa(15, 12)
↑ここがコンパイルエラーになります。
が、
Sub test1()
Dim cls As Class1
Set cls = New Class1
MsgBox cls.method_add(15, 23)
'MsgBox cls.aaa(15, 12) ここは、コメント化しておく
End Sub
Sub test2()
Dim cls As Object
Set cls = New Class1
MsgBox cls.method_add(15, 23)
MsgBox cls.aaa(15, 12)
End Sub
test2を実行すると、コンパイルエラーにはならず、
MsgBox cls.method_add(15, 23)
↑この結果の38は、表示され、
MsgBox cls.aaa(15, 12)
この実行時にエラーになります。これは、当たり前
つまり、プロシジャーの実行はされていることになります。
|
|