呼叫控制功能

Question

我有一个带2个功能的控件：func1和func2 我有一个包含控件列表的表单。 我希望在我的表单上有一个单独的函数（我将其称为MainFunc），它迭代我列表中的所有控件并根据参数调用func1或func2。 我想它看起来像那样：

public sub MainFunc（CalledFunc as ???）

for each IteratedControl as CustomControl in MyControlList
    IteratedControl.invoke(CalledFunc)
end for

结束子

我不希望我的参数是枚举，并根据其调用正确函数的值，因为有很多函数，而不仅仅是2，如上例所示。

请帮助

Answer 1

For Each control In Me.Controls
  If TypeOf control Is CustomControl Then
  CType(control, CustomControl ).func1()                
  CType(control, CustomControl ).func2()                
  End If
Next