代码后台修改Button边框厚度不生效问题（XAML VB）

看你说的情况——后台代码能成功把Button1的BorderBrush改成红色，但BorderThickness设为5完全没反应，刚好之前遇到过类似的问题，给你几个靠谱的排查和解决思路：

• 检查Button默认模板的绑定逻辑
  WPF的Button默认模板里，内部负责显示边框的Border控件，可能没把自身的BorderThickness和Button的同名属性做绑定，导致你修改Button的属性根本传不到可视化元素上。这种情况就得自定义Button的模板，确保绑定到位。给你个简化的模板示例：

  <Style TargetType="Button">
      <Setter Property="Template">
          <Setter.Value>
              <ControlTemplate TargetType="Button">
                  <Border x:Name="border" 
                          BorderBrush="{TemplateBinding BorderBrush}"
                          BorderThickness="{TemplateBinding BorderThickness}"
                          Background="{TemplateBinding Background}">
                      <ContentPresenter HorizontalAlignment="{TemplateBinding HorizontalContentAlignment}"
                                      VerticalAlignment="{TemplateBinding VerticalContentAlignment}"/>
                  </Border>
              </ControlTemplate>
          </Setter.Value>
      </Setter>
  </Style>
  

• 确认修改代码的执行时机
  如果你的修改代码写在控件还没初始化完成的地方（比如构造函数里，此时控件的可视化树还没构建好），就可能不生效。建议把代码移到Loaded事件里执行：

  Private Sub Button1_Loaded(sender As Object, e As RoutedEventArgs) Handles Button1.Loaded
      Button1.BorderBrush = Brushes.Red
      Button1.BorderThickness = New Thickness(5)
  End Sub
  

• 排查是否有样式/触发器覆盖属性
  项目里可能存在全局样式或者针对这个Button的特定样式，通过Setter或者触发器动态修改了BorderThickness，优先级比你后台代码设置的更高。你可以用Visual Studio的Live Visual Tree功能，查看Button的BorderThickness有效值，看看是不是被其他来源覆盖了。

• 直接定位模板内的Border控件修改
  要是不想自定义模板，也可以通过VisualTreeHelper找到Button内部的Border控件，直接修改它的BorderThickness：

  Private Sub SetButtonBorderThickness(btn As Button, thickness As Thickness)
      Dim border As Border = FindVisualChild(Of Border)(btn)
      If border IsNot Nothing Then
          border.BorderThickness = thickness
      End If
  End Sub
  
  Private Function FindVisualChild(Of T As DependencyObject)(parent As DependencyObject) As T
      For i As Integer = 0 To VisualTreeHelper.GetChildrenCount(parent) - 1
          Dim child = VisualTreeHelper.GetChild(parent, i)
          If TypeOf child Is T Then
              Return DirectCast(child, T)
          Else
              Dim result = FindVisualChild(Of T)(child)
              If result IsNot Nothing Then
                  Return result
              End If
          End If
      Next
      Return Nothing
  End Function
  

  调用的时候直接写：SetButtonBorderThickness(Button1, New Thickness(5))

这几个方法应该能解决你遇到的问题，你可以根据项目实际情况选合适的方案试试。

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