AddHandler Lambda表达式

Question

代码：

    Dim x, y as [Delegate]
    x = Sub() MeMouseMove(points)
    y = Sub() MeMouseDown(points)
    AddHandler MainGrid.MouseMove, x
    AddHandler MainGrid.MouseLeftButtonDown, y

代码背景：

• ＆＃39; MainGrid＆＃39;是一个与
中的窗口大小和宽度相同的网格
• ＆＃39; X＆＃39;并且＆＃39; y＆＃39;被宣布为[代表]
• ＆＃39;点＆＃39;是我需要通过以编程方式创建的处理程序
的类
• ＆＃39; MeMouseMove＆＃39;和＆＃39; MeMouseDown＆＃39;是我需要打电话的潜艇

问题：

我收到错误：

  

未处理的类型＆＃39; System.InvalidCastException＆＃39;发生
  附加信息：无法转换类型＆＃39; VB $ AnonymousDelegate_0＆＃39;输入＆＃39; System.Windows.Input.MouseEventHandler＆＃39;。

我认为问题在于声明x和y变量

任何帮助都将非常感谢，并感谢时间，红色

Answer 1

MouseEventHandler有两个参数Object sender和RoutedEventArgs e，所以你应该试试

x = Sub(s, e) MeMouseMove(points)
y = Sub(s, e) MeMouseDown(points)
AddHandler MainGrid.MouseMove, AddressOf x
AddHandler MainGrid.MouseLeftButtonDown, AddressOf y

Answer 2

找到解决方案

        Dim x As New MouseEventHandler(Sub() MeMouseMove(points))
        Dim y As New MouseButtonEventHandler(Sub() MeMouseDown(points))

将变量'x'和'y'更改为适当的变量类型（不是[Delegate]）