CallByName 関数を使用して、プロシージャを実行する方法

先頭へ戻る

サンプル プロジェクトの作成手順

1. Visual Basic で、新しい標準 EXE プロジェクトを作成します。 デフォルトで Form1 が作成されます。
2. プロジェクトにクラス モジュール (クラス 1) を追加します。
3. 次のコードをクラス モジュールに追加:

         Option Explicit
         Private MyPropValue As Integer
   
         Public Function Multiply(x As Integer, y As Integer) As Integer
            Multiply = x * y
         End Function
   
         Public Property Get MyProperty() As Variant
            MyProperty = MyPropValue
         End Property
   
         Public Property Let MyProperty(ByVal vNewValue As Variant)
            MyPropValue = vNewValue
         End Property
   
   						

4. フォーム モジュール (Form1) に次のコードを追加:

         Option Explicit
         Private Sub Form_Click()
            Dim myclass As New Class1
            Dim sum As Integer
            Dim prop As Integer
   
            ' Example of calling a method with CallByName
            ' equivalent to -- sum = myclass.Multiply(12, 12)
            sum = CallByName(myclass, "Multiply", VbMethod, 12, 12)
            MsgBox sum
   
            ' Example of a property let with CallByName
            ' equivalent to -- myclass.MyProperty = 5
            CallByName myclass, "MyProperty", VbLet, 5
   
            ' Example of a property get with CallByName
            ' equivalent to -- prop = myclass.MyProperty
            prop = CallByName(myclass, "MyProperty", VbGet)
            MsgBox prop
         End Sub
   
   						

5. プロジェクトを実行し、[Form1] をクリックします。 数 144 とメッセージを表示するメッセージ ボックスは、ボックスの番号 5 が連続して表示を表示します。

先頭へ戻る