VB.NET2003　スケルトンコードのカスタマイズ

Public Class Form1



    Public Interface TestClass1ActionListener

        Sub Action1()

    End Interface



    Public Interface TestClass2ActionListener

        Sub Action2()

    End Interface



    Public Interface TestClass3ActionListener

        Sub Action3()

    End Interface



    Public MustInherit Class BaseClass

        Implements TestClass1ActionListener, TestClass2ActionListener, TestClass3ActionListener



        Protected MustOverride Sub DoAction()





        Private Sub Action() Implements _

            TestClass1ActionListener.Action1, _

            TestClass2ActionListener.Action2, _

            TestClass3ActionListener.Action3

            Try

                DoAction()

            Catch ex As Exception

                Console.WriteLine(ex.Message)

            End Try

        End Sub



    End Class



    Public Class TestClass1 : Inherits BaseClass



        Protected Overrides Sub DoAction()

            Console.WriteLine("１処理で例外出しますよ")

            Throw New Exception("...例外出ましたよっと（１）")

        End Sub



    End Class



    Public Class TestClass2 : Inherits BaseClass



        Protected Overrides Sub DoAction()

            Console.WriteLine("２処理で例外出しますよ")

            Throw New Exception("...例外出ましたよっと（２）")

        End Sub



    End Class



    Public Class TestClass3 : Inherits BaseClass



        Protected Overrides Sub DoAction()

            Console.WriteLine("３の処理で例外出しますよ")

            Throw New Exception("...例外出ましたよっと（３）")

        End Sub



    End Class



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim al1 As TestClass1ActionListener = New TestClass1

        Dim al2 As TestClass2ActionListener = New TestClass2

        Dim al3 As TestClass3ActionListener = New TestClass3





        al1.Action1()

        al2.Action2()

        al3.Action3()



    End Sub

End Class