VB.net 中的响应式

Question

任何人都可以帮助我吗！

我尝试在 C# 中实现一些内容：

var keysIO =   Observable.FromEvent<KeyDownEventHandler, RoutedEventArgs>(
                                h => new KeyDownEventHandler(h),
                                h => btn.KeyDown += h,
                                h => btn.KeyDown -= h));

How to write that in VB?

谢谢你， 右

Answer 1

我首先让你的代码在我的机器上编译：

var keysIO = Observable.FromEvent<KeyEventHandler,KeyEventArgs>(
                                    h => btn.KeyDown += h, 
                                    h => btn.KeyDown -= h);

然后我在 Reflector 中打开它并修改为

Dim keysIO As IObservable(Of KeyEventArgs) = _
        Observable.FromEvent(Of KeyEventHandler, KeyEventArgs)( _
            (Sub(h) AddHandler btn.KeyDown, h), _
            (Sub(h) RemoveHandler btn.KeyDown, h))

Answer 2

C# btn.KeyDown += h 对应于VB 中的以下内容：

AddHandler btn.KeyDown, AddressOf h

同样，-= 对应于RemoveHandler。

但是，当使用不直接是通用 EventHandler(Of T) 的自定义 EventHandler 类型时，VB 编译器会出现问题。对于您的示例，我不确定自定义 KeyDownEventHandler 类型在转换参数中正在做什么。如果您不需要它，您可以使用弱类型版本：

Dim keysIO = Observable.FromEventPattern(Of KeyDownEventHandler, RotedEventArgs)(btn, "KeyDown")