VB.NET中如何通过修改自定义PropertyGrid属性同步更改Label字体

你当前的代码缺少属性变更的通知逻辑和属性变更到Label更新的关联规则，可通过以下两种方案实现需求：

方案1：使用PropertyGrid自带的PropertyValueChanged事件（无需修改GridSetting类，实现简单） #

适合仅需少量属性联动的场景：

1. 为PropertyGrid控件添加PropertyValueChanged事件处理，直接捕获属性修改动作，更新Label字体
2. 可选：初始化时同步Label的当前字体到PropertyGrid，保持初始状态一致

完整窗体代码示例： #

Private _gridSetting As GridSetting
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    _gridSetting = New GridSetting()
    ' 初始同步Label当前字体到PropertyGrid
    _gridSetting.LabelFont = Label1.Font
    PropertyGrid1.SelectedObject = _gridSetting
End Sub

' PropertyGrid属性变更事件处理
Private Sub PropertyGrid1_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles PropertyGrid1.PropertyValueChanged
    If e.ChangedItem.PropertyDescriptor.Name = NameOf(GridSetting.LabelFont) Then
        Label1.Font = CType(e.NewValue, Font)
    End If
End Sub

方案2：实现INotifyPropertyChanged接口（规范通用，适合多属性多控件联动场景） #

通过给配置类添加属性变更通知能力，实现更灵活的联动逻辑：

1. 修改GridSetting类，实现INotifyPropertyChanged接口，属性赋值时触发变更通知
2. 窗体中监听配置类的属性变更事件，收到通知后更新Label字体

修改后的GridSetting类代码： #

Imports System.ComponentModel

Public Class GridSetting
    Implements INotifyPropertyChanged

    Private _LabelFont As System.Drawing.Font

    <CategoryAttribute("Design"), DefaultValueAttribute(""), DescriptionAttribute("Select font for the Label")>
    Public Property LabelFont() As System.Drawing.Font
        Get
            Return _LabelFont
        End Get
        Set(ByVal Value As System.Drawing.Font)
            _LabelFont = Value
            ' 触发LabelFont属性变更通知
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(LabelFont)))
        End Set
    End Property

    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
End Class

对应的窗体代码： #

Imports System.ComponentModel

Private _gridSetting As GridSetting
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    _gridSetting = New GridSetting()
    ' 初始同步Label当前字体到PropertyGrid
    _gridSetting.LabelFont = Label1.Font
    ' 注册属性变更监听
    AddHandler _gridSetting.PropertyChanged, AddressOf OnGridSettingChanged
    PropertyGrid1.SelectedObject = _gridSetting
End Sub

Private Sub OnGridSettingChanged(sender As Object, e As PropertyChangedEventArgs)
    If e.PropertyName = NameOf(GridSetting.LabelFont) Then
        Label1.Font = _gridSetting.LabelFont
    End If
End Sub

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