VBA用户窗体按钮粗体与非粗体切换异常问题：设置非粗体无响应的解决方法

我之前在SolidWorks VBA里也碰到过类似的控件字体更新不生效的情况，你遇到的cmd_WriteTable.Font.Bold = False不生效的问题，大概率是SolidWorks用户窗体的控件没有自动刷新视觉状态导致的。

直接可行的解决方案 #

把切换逻辑加上强制刷新的代码，就能让按钮正确显示非粗体状态了：

Private Sub cmd_WriteTable_Click()
    ' 切换粗体状态（取反当前值）
    cmd_WriteTable.Font.Bold = Not cmd_WriteTable.Font.Bold
    ' 强制刷新按钮控件，让字体变化生效
    cmd_WriteTable.Refresh
    ' 如果单个控件刷新没用，可以试试刷新整个窗体
    ' Me.Refresh
End Sub

为什么会出现这个问题？ #

虽然SolidWorks VBA的用户窗体逻辑和Excel VBA看起来类似，但SolidWorks对窗体控件的渲染机制有细微差别——当你修改字体属性后，它不会自动触发控件的重绘，所以视觉上还是保持之前的粗体状态。手动调用Refresh方法会强制控件重新渲染，就能正确显示修改后的字体样式了。

额外排查点 #

如果上面的方法还是没用，可以检查这几个地方：

• 有没有其他事件代码（比如窗体的Initialize、Activate事件）在重复设置按钮的Font.Bold属性，覆盖了你的修改；
• 确认按钮的Enabled属性是True，有些控件在禁用状态下字体样式可能不会正常更新；
• 试试重新创建这个按钮控件，有时候控件的属性可能因为意外设置出现异常。

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