C# と VB.NET の質問掲示板

魔界の仮面弁士さんの回答が適切だと思います！

でも私はひねくれているので、別の回答案をむりくり作りました。
これなら、追加されるファイルごとに処理も合わせて分離できるかと思います。

Public Class Form1

	Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		ComboBox1.DataSource = New Command() {
			New MusicFileCommand(),
			New MovieFileCommand(),
			New TextFileCommand()
			}
	End Sub

	Private SelectCommand As Command

	Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
		SelectCommand = ComboBox1.SelectedItem
	End Sub

	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
		If SelectCommand IsNot Nothing Then
			SelectCommand.Execute()
		End If
	End Sub

End Class

Public Class Command
	Protected Sub New(ByVal name As String)
		Me.Name = name
	End Sub

	''' <summary>
	''' 名前
	''' </summary>
	''' <returns></returns>
	Public ReadOnly Property Name As String

	''' <summary>
	''' 実行処理
	''' </summary>
	Public Overridable Sub Execute()
		' 派生クラスで何か実行することを行うので、特になんもしなくてよい
	End Sub

	''' <summary>
	''' ToString()
	''' </summary>
	''' <remarks>
	''' コンボボックスで文字列が出るようにするために継承しておきます
	''' </remarks>
	''' <returns></returns>
	Public Overrides Function ToString() As String
		Return Me.Name
	End Function
End Class

Public Class MusicFileCommand : Inherits Command
	Public Sub New()
		MyBase.New("音楽ファイル")
	End Sub

	Public Overrides Sub Execute()
		' TODO: 音楽ファイルを○○する処理を実装する
	End Sub
End Class


Public Class MovieFileCommand : Inherits Command
	Public Sub New()
		MyBase.New("動画ファイル")
	End Sub

	Public Overrides Sub Execute()
		' TODO: 動画ファイルを○○する処理を実装する
	End Sub
End Class

Public Class TextFileCommand : Inherits Command
	Public Sub New()
		MyBase.New("テキストファイル")
	End Sub

	Public Overrides Sub Execute()
		' TODO: テキストファイルを○○する処理を実装する
	End Sub
End Class