VB.NET中能否创建全局事件实现WinForms多窗体实时主题切换？

VB.NET没有完全脱离类/模块依附的“绝对全局事件”，但通过共享模块承载全局事件的实现方式，完全可以达到你需要的多窗体实时同步切换主题的效果，和你现有的代码逻辑兼容度很高，改造量很小。

具体实现步骤 #

1. 搭建全局事件的承载容器 #

VB的Module模块里的成员默认是全局可访问的，不需要实例化就能直接调用，最适合用来存放这种全局级别的事件：

' 新建一个公共模块，专门管理全局主题相关的事件
Public Module ThemeGlobalEvents
    ' 定义主题变更的全局事件
    Public Event OnThemeChanged As EventHandler

    ' 封装统一的事件触发入口，避免不同位置写重复的RaiseEvent逻辑
    Public Sub TriggerThemeChange()
        ' 触发所有已经订阅该事件的处理逻辑
        RaiseEvent OnThemeChanged(My.Application, EventArgs.Empty)
    End Sub
End Module

2. 改造你原有的SetTheme方法 #

在现有逻辑的最后，配置保存完成之后，直接调用上面的全局事件触发方法就行，替换掉你原来注释里预想的RaiseEvent逻辑：

Public Sub SetTheme()
    Dim isDark = CBool(GetData("theme").Equals("dark"))
    My.Settings.theme = If(isDark = True, "light", "dark")
    My.Settings.primary = If(isDark = True, GetData("lightsmoke"), GetData("dark"))
    My.Settings.secondary = If(isDark = True, GetData("light"), GetData("darksmoke"))
    My.Settings.text_color = If(isDark = True, GetData("dark"), GetData("lightsmoke"))
    My.Settings.Save()
   
    ' 存完配置就触发全局主题变更事件
    ThemeGlobalEvents.TriggerThemeChange()
End Sub

3. 调整窗体的主题响应逻辑 #

你原本设想的Handles Me.Load, Me.ChangeTheme写法没法直接生效，因为ChangeTheme不是Form类自带的事件，需要通过手动绑定的方式把窗体的主题初始化逻辑挂到全局事件上——这里一定要注意在窗体关闭时解绑事件，不然会造成内存泄漏：

Class Form1
    ' 原有的主题应用逻辑保持不变
    Private Sub ApplyTheme()
        BackColor = My.Settings.primary
        ForeColor = My.Settings.text_color
    End Sub

    ' 窗体首次加载时自动应用初始主题
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ApplyTheme()
    End Sub

    ' 窗体构造函数
    Public Sub New()
        InitializeComponent()
        ' 把主题应用方法绑定到全局主题变更事件上
        AddHandler ThemeGlobalEvents.OnThemeChanged, AddressOf ApplyTheme
    End Sub

    ' 窗体关闭时一定要解绑事件，避免窗体被长期引用造成内存泄漏
    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        RemoveHandler ThemeGlobalEvents.OnThemeChanged, AddressOf ApplyTheme
    End Sub
End Class

实用优化建议 #

• 如果项目里的窗体数量很多，完全不用在每个窗体里重复写绑定、解绑的重复代码：可以先做一个继承自Form的基类，比如叫BaseForm，把上面的事件绑定、解绑、应用主题的逻辑全部封装在基类里，后续所有新建的窗体直接继承这个BaseForm，就能自动具备响应主题变更的能力。
• 这套逻辑运行时，只要触发主题变更事件，所有已经打开的、订阅了该事件的窗体会立刻重新读取已保存的主题配置，更新自身的控件样式，完全实现实时切换的效果，不需要手动遍历所有打开的窗体逐个刷新。
• 和你原本设想的“每个窗体自己持有ChangeTheme事件”的方案比，全局模块的事件不需要你额外维护当前已打开窗体的实例列表，事件的订阅、触发关系全部由框架自动维护，对新手来说更稳定，不容易出现漏刷新、找不到窗体实例的问题。

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