c# - 如何在 VB.Net 中声明 lambda 事件处理程序？

Question

我相信下面的 VB.Net 代码等同于前面的 C# 代码；然而，VB.Net 测试失败了——从未调用事件处理 Lambda。

这是怎么回事？

VB.Net 版本 - 失败:

<TestFixture()> _
Public Class TestClass
    <Test()> _
    Public Sub EventTest()
        Dim eventClass As New EventClass
        Dim eventRaised As Boolean = False
        AddHandler eventClass.AnEvent, Function() (eventRaised = True)
        eventClass.RaiseIt()
        Assert.IsTrue(eventRaised)
    End Sub    
End Class

Public Class EventClass
    Public Event AnEvent()
    Public Sub RaiseIt()
        RaiseEvent AnEvent()
    End Sub
End Class

C# 版本 - 通过:

[TestFixture]
    public class TestClass
    {
        [Test]
        public void EventTest()
        {
            var eventClass = new EventClass();
            var eventRaised = false;
            eventClass.AnEvent += () => { eventRaised = true; }; 
            eventClass.RaiseIt();
            Assert.IsTrue(eventRaised);
        }
    }

    public class EventClass
    {
        public delegate void EventHandler();
        public event EventHandler AnEvent;
        public void RaiseIt()
        {
            AnEvent();
        }
    }

Answer 1

对于那些现在发现这个问题的人:自 Visual Basic 2010 (VB 10.0) 以来，匿名 Sub 确实有效，所以你可以这样写:

Sub() eventRaised = True