AddHandler Lambda表达

Question

守则：

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

代码背景：

• 'MainGrid‘是一个与它所在的窗口大小和宽度相同的网格
• “x”和“y”被宣布为代表
• ‘'points’是我需要通过编程创建的处理程序传递的类。
• 'MeMouseMove‘和'MeMouseDown’是我需要调用的子

问题是：

我收到一个错误：

发生了“System.InvalidCastException”类型的未处理异常 其他信息:无法将“VB$AnonymousDelegate_0”类型的对象强制转换为“System.Windows.Input.MouseEventHandler”。

我相信问题是关于x和y变量的声明

任何帮助都是非常感谢和感谢的时间，瑞德

Answer 1

找到解决办法

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

将变量“x”和“y”更改为适当的变量类型(而不是代表)

Answer 2

MouseEventHandler有两个参数对象发送方和RoutedEventArgs e，所以您应该尝试

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