避免了参数类长的case语句

Question

没有可以由A类

里面的A级执行的任务的类层次结构还有很长的case语句检查任务类，并调用相应的处理程序方法。

Class Task 
End Class 

Class TaskX 
Inherits Task 
End Class 

Class TaskY 
Inherits Task 
End Class 

... 


Class A 
    Public Sub PerformTask(Task As Task) 
     Select Case Task.GetType 
      Case GetType(TaskX) 
       PerformTaskX(CType(Task, TaskX)) 
      Case GetType(TaskY) 
       PerformTaskY(CType(Task, TaskY)) 
     End Select 
    End Sub 


    Private Sub PerformTaskX(Task As TaskX) 
    End Sub 

    Private Sub PerformTaskY(Task As TaskY) 
    End Sub 

    ... 
End Class 

任务有它们各自的参数，验证逻辑等。这个例子被简化了。

我想避免这种情况，我正在寻找替代解决方案。

的总体思路是类映射类型的处理程序（类），这可以在某种程度上像这样工作：

Delegate Sub Handler(Task As Task) 

Private TypeToHandlerDict As New Dictionary(Of System.Type, Handler) From { _ 
      {GetType(TaskX), AddressOf PerformTaskX}, _ 
      {GetType(TaskY), AddressOf PerformTaskY} _ 
     } 

，这样我可以用更优雅的更换PerformTask方法内容：

Public Sub PerformTask(Task As Task) 
    Dim handler As Handler = Nothing 
    If Not TypeToHandlerDict.TryGetValue(Task.GetType, handler) Then Exit Sub 
    handler(Task) 
End Sub 

但它不起作用。

委托绑定到Task类型，但处理程序方法接受任务子类参数。我正在使用Option Strict。 我可以重写所有处理程序方法来接受任务对象并执行显式强制转换，但这同样不雅观。

有什么建议吗？ 谢谢！

更新：这是解决方案感谢@Sehnsucht的答案。

Class Task 
    Public MustOverride Sub Perform(a As A) 
End Class 

Class TaskX 
Inherits Task 
    Public Overrides Sub Perform(a As A) 
     a.DoThis() 
    End Sub 
End Class 

Class TaskY 
Inherits Task 
    Public Overrides Sub Perform(a As A) 
     a.DoThat() 
    End Sub 
End Class 

... 


Class A 
    Public Sub PerformTask(Task As Task) 
     Task.Perform(Me) 
    End Sub 


    Public Sub DoThis() 
    End Sub 

    Public Sub DoThat() 
    End Sub 

    ... 
End Class 

Answer 1

所有PerformTask...具有相同的签名而这由委托Handler您在您的文章显示执行。
因此，您应该在Task类中使用默认实现（或者如果Task类为MustInherit，则将该方法标记为MustOverride），并由继承者根据其特定情况执行该作业将覆盖该方法。

Class Task 
    Public Overridable Sub Perform() 
     ' implementation specific to Task ("default" case) 
    End Sub 
End Class 

Class TaskX 
    Inherits Task 

    Public Overrides Sub Perform() 
     ' implementation specific to TaskX 
     ' you can call the parent implementation if needed with 
     MyBase.Perform() 
    End Sub 
End Class 

'Usage 
Class A 
    Public Sub PerformTask(task As Task) 
     task.Perform() ' will call the "right one" according to it's runtime type 
    End Sub 
End Class