如何修改VB.NET代码实现一次性重置UserControl的多个属性？

原来的代码只针对单个BackColor属性做了重置，要实现批量重置多个属性，核心思路是把需要重置的属性名整理成一个集合，然后循环遍历每个属性执行重置操作。下面是修改后的完整代码：

Private Sub ResetControl(ByVal sender As Object, ByVal e As EventArgs)
    ' 先获取目标UserControl实例
    Dim _UserControl As UserControl1 = CType(Me.Control, UserControl1)
    
    ' 定义需要重置的属性名列表，把你要重置的属性都加在这里
    Dim propertiesToReset As String() = {"BackColor", "ForeColor", "Text", "Font"}
    
    ' 遍历每个属性名，执行重置
    For Each propName As String In propertiesToReset
        ' 获取当前属性的PropertyDescriptor
        Dim _PropertyDescriptor As PropertyDescriptor = TypeDescriptor.GetProperties(_UserControl)(propName)
        
        ' 先判断该属性是否允许重置（避免报错）
        If _PropertyDescriptor IsNot Nothing AndAlso _PropertyDescriptor.CanResetValue(_UserControl) Then
            _PropertyDescriptor.ResetValue(_UserControl)
        End If
    Next
End Sub

关键修改点说明： #

• 新增了propertiesToReset数组：把你需要重置的所有属性名称都添加到这个数组里，比如ForeColor、Text、Font等，按需调整即可。
• 循环遍历属性集合：通过For Each循环逐个处理每个属性，避免重复写多次重置代码，让逻辑更简洁易维护。
• 增加了安全判断：先检查PropertyDescriptor是否存在，以及该属性是否允许重置（CanResetValue），防止因为属性名写错或者属性本身不支持重置导致运行时错误。

这样修改后，只要你在propertiesToReset里列出的属性，都会被批量重置回默认值啦。

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