次の方法で共有


チュートリアル : インターフェイスの作成と実装

更新 : 2007 年 11 月

インターフェイスはプロパティ、メソッド、およびイベントの特性を記述しますが、その実装の詳細は構造体やクラスに依存しています。

このチュートリアルでは、インターフェイスの宣言および実装の方法を説明します。

cd43d244.alert_note(ja-jp,VS.90).gifメモ :

使用している設定またはエディションによっては、表示されるダイアログ ボックスやメニュー コマンドがヘルプに記載されている内容と異なる場合があります。設定を変更するには、[ツール] メニューの [設定のインポートとエクスポート] をクリックします。詳細については、「Visual Studio の設定」を参照してください。

インターフェイスを定義するには

  1. 新しい Visual Basic Windows アプリケーション プロジェクトを開きます。

  2. [プロジェクト] メニューの [標準モジュールの追加] をクリックして、新規モジュールをプロジェクトに追加します。

  3. 新規モジュールに Module1.vb という名前を付け、[追加] をクリックします。新規モジュールのコードが表示されます。

  4. Module ステートメントと End Module ステートメントの間に「Interface TestInterface」と入力し、Enter を押して、TestInterface という名前のインターフェイスを Module1 で定義します。コード エディタによって Interface キーワードがインデントされ、End Interface ステートメントが追加されてコード ブロックが形成されます。

  5. Interface ステートメントと End Interface ステートメントの間に次のコードを記述して、インターフェイスのプロパティ、メソッド、およびイベントを定義します。

    Property Prop1() As Integer
    Sub Method1(ByVal X As Integer)
    Event Event1()
    

実装

インターフェイス メンバを宣言する構文は、クラス メンバを宣言する構文と異なります。この違いは、インターフェイスには実装コードを含めることができないという事実を表しています。

インターフェイスを実装するには

  1. Module1 に ImplementationClass という名前のクラスを追加します。End Interface ステートメントと End Module ステートメントの間に次のステートメントを追加し、Enter キーを押します。

    Class ImplementationClass
    

    統合開発環境で作業している場合、Enter キー を押すことによって、対応する End Class ステートメントがコード エディタに追加されます。

  2. 次の Implements ステートメントを ImplementationClass に追加します。これによって、クラスが実装するインターフェイスが指定されます。

    Implements TestInterface
    

    Implements ステートメントがクラスまたは構造体の先頭で他の項目と分かれて記述されている場合は、クラスまたは構造体がインターフェイスを実装することを意味します。

    統合開発環境で作業している場合、Enter を押すとコード エディタによって TestInterface で必要なクラス メンバが実装され、次の手順は省略できます。

  3. 統合開発環境で作業している場合、インターフェイス MyInterface のすべてのメンバを実装する必要があります。次のコードを ImplementationClass に追加して Event1、Method1、Prop1 を実装します。

    Event Event1() Implements TestInterface.Event1
    
    Public Sub Method1(ByVal X As Integer) Implements TestInterface.Method1
    End Sub
    
    Public Property Prop1() As Integer Implements TestInterface.Prop1
        Get
        End Get
        Set(ByVal value As Integer)
        End Set
    End Property
    

    Implements ステートメントは、実装されるインターフェイスとインターフェイスのメンバの名前を指定します。

  4. プロパティの値を格納したクラスにプライベート フィールドを追加することで、Prop1 の定義を完了します。

    ' Holds the value of the property.
    Private pval As Integer
    

    pval の値を、プロパティの get アクセサから返します。

    Return pval
    

    pval の値を、プロパティの set アクセサに設定します。

    pval = value
    
  5. 次のコードを追加して、Method1 の定義を完了します。

    MsgBox("The X parameter for Method1 is " & X)
    RaiseEvent Event1()
    

インターフェイスの実装をテストするには

  1. ソリューション エクスプローラでプロジェクトのスタートアップ フォームを右クリックし、[コードの表示] をクリックします。スタートアップ フォームのクラスがエディタに表示されます。スタートアップ フォームの名前は既定で Form1 となります。

  2. 次の testInstance フィールドを Form1 クラスに追加します。

    Dim WithEvents testInstance As TestInterface
    

    testInstance を WithEvents として宣言することで、Form1 クラスはそのイベントを処理できるようになります。

  3. testInstance によって発生するイベントを処理するために、次のイベント ハンドラを Form1 に追加します。

    Sub EventHandler() Handles testInstance.Event1
        MsgBox("The event handler caught the event.")
    End Sub
    
  4. Test というサブルーチンを Form1 クラスに追加して、実装クラスをテストします。

    Sub Test()
        '  Create an instance of the class.
        Dim T As New ImplementationClass
        ' Assign the class instance to the interface.
        ' Calls to the interface members are 
        ' executed through the class instance.
        testInstance = T
        ' Set a property.
        testInstance.Prop1 = 9
        ' Read the property.
        MsgBox("Prop1 was set to " & testInstance.Prop1)
        '  Test the method and raise an event.
        testInstance.Method1(5)
    End Sub
    

    Test プロシージャは、MyInterface を実装するクラスのインスタンスを作成し、そのインスタンスを testInstance フィールドに代入し、プロパティを設定し、そのインターフェイスを経由してメソッドを実行します。

  5. スタートアップ フォームの Form1 Load プロシージャから Test プロシージャを呼び出すコードを追加します。

    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) _
                           Handles MyBase.Load
        Test() ' Test the class.
    End Sub
    
  6. F5 キーを押して Test プロシージャを実行します。"Prop1 was set to 9" というメッセージが表示されます。[OK] をクリックすると、"The X parameter for Method1 is 5" というメッセージが表示されます。[OK] をクリックすると、"The event handler caught the event" というメッセージが表示されます。

参照

処理手順

方法 : インターフェイスを作成および実装する

概念

インターフェイスを使用する状況

参照

Implements ステートメント

Interface ステートメント (Visual Basic)

Event ステートメント

その他の技術情報

Visual Basic におけるインターフェイス