将 Sub 包装为函数以在 Lambda 中使用

Question

我对 VB9 和起订量有疑问。

我需要对 Sub 进行验证。像这样：

logger.Verify(Function(x) x.Log, Times.AtLeastOnce)

我的记录器看起来像这样：

Public Interface ILogger
    Sub Log()
End Interface

但是对于 VB 这是不可能的，因为 Log 方法是 Sub，因此不会产生值。

我不想将方法更改为函数。

解决此限制的最干净的方法是什么？有没有办法将 Sub 包装为如下所示的函数？

logger.Verify(Function(x) ToFunc(AddressOf x.Log), Times.AtLeastOnce)

我已经尝试过这个，但我得到：

Lambda 参数不在范围内

Answer 1

VB10 允许使用 Lambada Subs。

您是否尝试过简单的包装器，例如：

Public Function Wrapper(source as Action) as Boolean  
    source.Invoke()   
    Return True 
End Function

Answer 2

2010 年，如果它是 Sub 而不是 Function，只需将 Function 替换为 Sub。

logger.Verify(Sub(x) x.Log, Times.AtLeastOnce)