チュートリアル: COM オブジェクトによる継承の実装 (Visual Basic)

[アーティクル]
05/10/2023

以前のバージョンの Visual Basic で作成されたものでも、COM オブジェクトの Public クラスから Visual Basic クラスを派生させることができます。 COM オブジェクトから継承されたクラスのプロパティとメソッドは、他の基底クラスのプロパティとメソッドがオーバーライドまたはオーバーロードできるのと同様に、オーバーライドまたはオーバーロードできます。 COM オブジェクトからの継承は、再コンパイルしたくない既存のクラスライブラリがある場合に便利です。

次の手順では、Visual Basic 6.0 を使用してクラスを含む COM オブジェクトを作成してから、それを基底クラスとして使用する方法を示します。

注意

次の手順で参照している Visual Studio ユーザーインターフェイス要素の一部は、お使いのコンピューターでは名前や場所が異なる場合があります。これらの要素は、使用している Visual Studio のエディションや独自の設定によって決まります。詳細については、「IDE をカスタマイズする」をご覧ください。

このチュートリアルで使用する COM オブジェクトをビルドするには

Visual Basic 6.0 で、新しい ActiveX DLL プロジェクトを開きます。 Project1 という名前のプロジェクトが作成されます。これには Class1 という名前のクラスが含まれています。
プロジェクトエクスプローラーで [Project1] を右クリックし、 [Project1 Properties] (Project1 のプロパティ) をクリックします。 [プロジェクトのプロパティ] ダイアログボックスが表示されます。
[プロジェクトのプロパティ] ダイアログボックスの [全般] タブで、[プロジェクト名] フィールドに「ComObject1」と入力してプロジェクト名を変更します。
プロジェクトエクスプローラーで Class1 を右クリックし、[プロパティ] をクリックします。クラスの [プロパティ] ウィンドウが表示されます。
Name プロパティを MathFunctions に変更します。
プロジェクトエクスプローラーで MathFunctions を右クリックし、[コードの表示] をクリックします。 [コードエディター] が表示されます。
プロパティ値を保持するためにローカル変数を追加します。
```
' Local variable to hold property value
Private mvarProp1 As Integer
```

Property Let と Property Get のプロパティプロシージャを追加します。

Public Property Let Prop1(ByVal vData As Integer)
   'Used when assigning a value to the property.
   mvarProp1 = vData
End Property
Public Property Get Prop1() As Integer
   'Used when retrieving a property's value.
   Prop1 = mvarProp1
End Property

関数を追加します。

Function AddNumbers(
   ByVal SomeNumber As Integer,
   ByVal AnotherNumber As Integer) As Integer

   AddNumbers = SomeNumber + AnotherNumber
End Function

[ファイル] メニューの [Make ComObject1.dll] (ComObject1 の作成) をクリックして、COM オブジェクトを作成して登録します。

注意

Visual Basic で作成されたクラスを COM オブジェクトとして公開することもできますが、これは真の COM オブジェクトではなく、このチュートリアルでは使用できません。詳細については、「.NET Framework アプリケーションにおける COM 相互運用性」を参照してください。

相互運用機能アセンブリ

次の手順では、アンマネージコード (COM オブジェクトなど) と Visual Studio で使用されるマネージドコードの間のブリッジとして機能する相互運用機能アセンブリを作成します。 Visual Basic で作成される相互運用機能アセンブリは、COM オブジェクトの操作の多くの詳細情報を処理します。たとえば、"相互運用マーシャリング" は、COM オブジェクトとの間で移動するときに、パラメーターと戻り値を同等のデータ型にパッケージ化するプロセスです。 Visual Basic アプリケーション内の参照は、実際の COM オブジェクトではなく、相互運用機能アセンブリを指します。

Visual Basic 2005 以降のバージョンで COM オブジェクトを使用するには

新しい Visual Basic Windows アプリケーションプロジェクトを開きます。
[プロジェクト] メニューの [参照の追加] をクリックします。

[参照の追加] ダイアログボックスが表示されます。
[COM] タブで、[コンポーネント名] の一覧で ComObject1 をダブルクリックし、[OK] をクリックします。
[プロジェクト] メニューの [新しい項目の追加] をクリックします。

[新しい項目の追加] ダイアログボックスが表示されます。
[テンプレート] ウィンドウで [クラス] をクリックします。

Class1.vb[名前] フィールドに既定のファイル名 が表示されます。このフィールドを MathClass.vb に変更し、 [追加] をクリックします。これにより MathClass という名前のクラスが作成され、そのコードが表示されます。

COM クラスを継承するために、MathClass の先頭に次のコードを追加します。

' The inherited class is called MathFunctions in the base class,
' but the interop assembly appends the word Class to the name.
Inherits ComObject1.MathFunctionsClass

MathClass に次のコードを追加して、基底クラスのパブリックメソッドをオーバーロードします。

'  This method overloads the method AddNumbers from the base class.
Overloads Function AddNumbers(
    ByVal SomeNumber As Integer,
    ByVal AnotherNumber As Integer) As Integer

    Return SomeNumber + AnotherNumber
End Function

次のコードを MathClass に追加して、継承されたクラスを拡張します。

'  The following function extends the inherited class.
Function SubtractNumbers(
    ByVal SomeNumber As Integer,
    ByVal AnotherNumber As Integer) As Integer

    Return AnotherNumber - SomeNumber
End Function

新しいクラスは、COM オブジェクトの基底クラスのプロパティを継承し、メソッドをオーバーロードして、クラスを拡張する新しいメソッドを定義します。

継承されたクラスをテストするには

スタートアップフォームにボタンを追加し、それをダブルクリックしてコードを表示します。

ボタンの Click イベントハンドラープロシージャに次のコードを追加して、MathClass のインスタンスを作成し、オーバーロードされたメソッドを呼び出します。

Dim Result1 As Short
Dim Result2 As Integer
Dim Result3 As Integer
Dim MathObject As New MathClass
Result1 = MathObject.AddNumbers(4S, 2S) ' Add two Shorts.
Result2 = MathObject.AddNumbers(4, 2) 'Add two Integers.
Result3 = MathObject.SubtractNumbers(2, 4) ' Subtract 2 from 4.
MathObject.Prop1 = 6 ' Set an inherited property.

MsgBox("Calling the AddNumbers method in the base class " &
       "using Short type numbers 4 and 2 = " & Result1)
MsgBox("Calling the overloaded AddNumbers method using " &
       "Integer type numbers 4 and 2 = " & Result2)
MsgBox("Calling the SubtractNumbers method " &
       "subtracting 2 from 4 = " & Result3)
MsgBox("The value of the inherited property is " &
        MathObject.Prop1)

F5 キーを押して、プロジェクトを実行します。

フォームのボタンをクリックすると、AddNumbers メソッドが最初に Short データ型の数値で呼び出され、Visual Basic で基底クラスから適切なメソッドが選択されます。 AddNumbers の 2 回目の呼び出しは MathClass からのオーバーロードメソッドに送られます。 3 回目の呼び出しは、クラスを拡張する SubtractNumbers メソッドを呼び出します。基底クラスのプロパティが設定され、値が表示されます。

次の手順

オーバーロードされた AddNumbers 関数が、COM オブジェクトの基底クラスから継承されたメソッドと同じデータ型を持つように見えることに気付いたかもしれません。これは、基底クラスのメソッドの引数とパラメーターが Visual Basic 6.0 では 16 ビット整数として定義されているのに対し、以降のバージョンの Visual Basic では型 Short の 16 ビット整数として公開されているためです。新しい関数は、32 ビットの整数を受け入れ、基底クラスの関数をオーバーロードします。

COM オブジェクトを使用する場合は、パラメーターのサイズとデータ型を必ず確認してください。たとえば、引数として Visual Basic 6.0 コレクションオブジェクトを受け入れる COM オブジェクトを使用している場合、以降のバージョンの Visual Basic のコレクションを指定することはできません。

COM クラスから継承されたプロパティとメソッドは、オーバーライドすることができます。つまり、基底の COM クラスから継承されたプロパティまたはメソッドを置き換えるローカルプロパティまたはメソッドを宣言できます。継承された COM プロパティをオーバーライドするためのルールは、次の例外を除き、他のプロパティおよびメソッドをオーバーライドするためのルールに似ています。

COM クラスから継承されたプロパティまたはメソッドをオーバーライドする場合は、継承された他のすべてのプロパティとメソッドをオーバーライドする必要があります。
ByRef パラメーターを使用するプロパティをオーバーライドすることはできません。

次の方法で共有