VB.NET实时更新UI控件异常：FileSystemWatcher无法更新CheckedListBox

问题根源在于：FileSystemWatcher的事件处理线程不是UI线程，WinForms控件只能由创建它的UI线程进行修改操作，直接在非UI线程里调用CheckedListBox.Items.Add()不会触发控件更新，甚至可能引发线程安全异常。

解决步骤： #

在事件处理方法中，通过Invoke或BeginInvoke将控件更新操作切换到UI线程执行：

修改你的oncreate方法如下：

Public Sub oncreate(sender As Object, e As FileSystemEventArgs)
    'Set Variables
    Dim strFullPath = e.FullPath
    Dim strProjectSuffix = Split(strFullPath, "\")(3)
    Dim message = $"File created: {strFullPath}" '带上具体路径，更直观展示变更

    '检查是否需要跨线程调用
    If Form_Home.CheckedListBox_Notifications.InvokeRequired Then
        '使用Invoke切换到UI线程执行更新
        Form_Home.CheckedListBox_Notifications.Invoke(
            Sub()
                Form_Home.CheckedListBox_Notifications.Items.Add(message)
                '可选：自动滚动到最新条目，提升查看体验
                Form_Home.CheckedListBox_Notifications.TopIndex = Form_Home.CheckedListBox_Notifications.Items.Count - 1
            End Sub
        )
    Else
        '当前已是UI线程，直接更新控件
        Form_Home.CheckedListBox_Notifications.Items.Add(message)
        Form_Home.CheckedListBox_Notifications.TopIndex = Form_Home.CheckedListBox_Notifications.Items.Count - 1
    End If
End Sub

补充说明： #

• InvokeRequired：用于判断当前线程是否为控件的创建线程，返回True时必须通过跨线程方式操作控件。
• Invoke：同步执行UI线程操作，会等待控件更新完成后再继续后续逻辑；若无需等待，也可使用BeginInvoke实现异步调用。
• 自动设置TopIndex可以让CheckedListBox自动滚动到最新添加的通知，避免用户手动翻找。

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