wpf - 在 VB.NET 中订阅事件

Question

我正在尝试将一些 C# 代码转换为 VB.NET。

我在 C# 中有以下内容(有效)

m_switchImageTimer = new DispatcherTimer();
m_switchImageTimer.Interval = Interval;
m_switchImageTimer.Tick += (s, e) => LoadNextImage();

我正在努力成功转换的关键是:

m_switchImageTimer.Tick += (s, e) => LoadNextImage();

我尝试过的是:

m_switchImageTimer.Tick += Function(s, e) LoadNextImage()
m_switchImageTimer.Tick += New EventHandler(AddressOf LoadNextImage)

这些都不起作用。

第一次尝试产生两个错误，第一个VS2010高亮在m_switchImageTimer.Tick下:

Error 1 'Public Event Tick(sender As Object, e As System.EventArgs)' is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event

并在 LoadNextImage() 下突出显示会产生以下错误:

Error 3 Expression does not produce a value.

第二次尝试产生相同的错误:

Error 1 'Public Event Tick(sender As Object, e As System.EventArgs)' is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event.

如何将 C# 代码转换为 VB.NET？

谢谢
本

Answer 1

在 VB.NET 中订阅事件需要 AddHandler 或 Handles 关键字。您还会遇到 lambda 的问题，Function 关键字需要一个返回值的表达式。在 VS2010 中你可以这样写:

    AddHandler m_switchImageTimer.Tick, Sub(s, e) LoadNextImage()

在早期版本中，您需要更改 LoadNextImage() 方法声明或使用具有正确签名的小型私有(private)辅助方法:

    AddHandler m_switchImageTimer.Tick, AddressOf SwitchImageTimer_Tick
...
Private Sub SwitchImageTimer_Tick(sender As Object, e As EventArgs)
    LoadNextImage()
End Sub