从C# WPF用户控件代码后置订阅F#事件失败，求排查

问题核心 #

你在C#代码后置和F# DataContext中分别创建了完全独立的ProgressNoteEvent实例：

• C#里的progressNoteEvent = new ProgressNoteEvent();是一个独立实例
• F#里的let classWithEvent = new ProgressNoteEvent()是另一个无关实例

事件是绑定到具体实例的成员，只有订阅同一个实例的事件，才能收到该实例触发的通知。你现在订阅的是C#自己创建的实例，但触发事件的是DataContext里的另一个实例，自然收不到任何事件通知。

解决方案：共享同一个事件实例 #

需要让C#和F#使用同一个ProgressNoteEvent对象，具体实现步骤如下：

1. 在F# ViewModel中暴露事件实例 #

修改F#的DataContext代码，将事件实例作为ViewModel的公开成员对外暴露：

type ProgressNoteEvent() =
    let event1 = new Event<string>()
    let standardDotNetEventArgsEvent = new Event<EventHandler, EventArgs>()

    [<CLIEvent>]
    member this.Event1 = event1.Publish

    [<CLIEvent>]
    member this.StandardDotNetEventArgsEvent = standardDotNetEventArgsEvent.Publish

    member this.TestEvent(arg) =
        event1.Trigger(arg)

    member this.TestStandardDotNetEventArgsEvent() =
        standardDotNetEventArgsEvent.Trigger(this, EventArgs.Empty)

// 定义ViewModel，包含共享的事件实例
type ViewModel() =
    let eventInstance = new ProgressNoteEvent()
    // 公开事件实例给外部访问
    member this.EventInstance = eventInstance

    // 触发测试事件的方法
    member this.TriggerTestEvents() =
        eventInstance.Event1.Add(fun arg -> printfn "Event1 occurred! Object data: %s" arg)             
        eventInstance.TestEvent("Hello World!")
        eventInstance.TestStandardDotNetEventArgsEvent()

2. C#代码从DataContext获取共享实例 #

在C#代码后置中，不要自行创建新实例，而是从控件的DataContext中获取已存在的ProgressNoteEvent实例并订阅事件：

public partial class YourUserControl : UserControl
{
    public YourUserControl()
    {
        InitializeComponent();
        Loaded += YourUserControl_Loaded;
    }

    private void YourUserControl_Loaded(object sender, RoutedEventArgs e)
    {
        var viewModel = DataContext as ViewModel;
        if (viewModel != null)
        {
            // 订阅共享实例的事件
            viewModel.EventInstance.Event1 += ProgressNoteEvent_Event1;
            viewModel.EventInstance.StandardDotNetEventArgsEvent += ProgressNoteEvent_StandardDotNetEventArgsEvent;
        }
    }

    private void ProgressNoteEvent_Event1(string arg)
    {
        // 处理Event1的业务逻辑
    }

    private void ProgressNoteEvent_StandardDotNetEventArgsEvent(object sender, EventArgs e)
    {
        // 处理标准事件的业务逻辑
    }
}

3. 绑定ViewModel到DataContext #

在WPF用户控件的构造函数或XAML中，将ViewModel实例设置为控件的DataContext：

public YourUserControl()
{
    InitializeComponent();
    DataContext = new ViewModel();
    Loaded += YourUserControl_Loaded;
}

完成上述步骤后，C#和F#将使用同一个ProgressNoteEvent实例，当F#触发事件时，C#的事件处理器就能正常接收并处理通知了。

内容的提问来源于stack exchange，提问作者Alan Wayne