VB.NET：为RichTextBox选区添加非常量FontStyle及构建方法优化咨询

嘿，很高兴能帮你解决这两个VB.NET的问题！咱们一个一个来拆解：

要给RichTextBox的选中内容加动态的字体样式，核心是保留原有字体的属性（字号、字体族等），只合并新的样式。直接赋值全新Font会覆盖原有样式，所以得先获取当前选中内容的字体，再通过位运算合并样式。

举个具体的例子，假设你要给选中内容添加斜体样式（这个样式可以是动态获取的，比如从用户选择的选项来）：

If richTextBox1.SelectionLength > 0 Then
    ' 获取选中内容当前的字体
    Dim currentFont As Font = richTextBox1.SelectionFont
    ' 这里的newStyle可以是任意动态生成的FontStyle值，比如从下拉框、复选框获取
    Dim newStyle As FontStyle = FontStyle.Italic
    ' 用Or运算合并原有样式和新样式（不会覆盖已有的粗体、下划线等）
    Dim combinedStyle As FontStyle = currentFont.Style Or newStyle
    ' 应用新字体：复用原有字体的字体族、字号，只替换样式
    richTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, combinedStyle)
End If

如果是要切换样式（比如点击按钮，选中内容有斜体就取消，没有就加上），把Or换成XOr就行：

Dim combinedStyle As FontStyle = currentFont.Style XOr FontStyle.Italic

完全不用枚举所有可能的样式组合！因为FontStyle是带[Flags]特性的枚举，天生支持位运算来动态组合样式，这就是最简洁的“添加/追加”方式。

比如你可以根据不同的条件，逐个把需要的样式“加”进去：

' 初始样式设为常规（Regular）
Dim targetStyles As FontStyle = FontStyle.Regular

' 根据业务条件决定是否添加样式
If isBoldRequired Then
    targetStyles = targetStyles Or FontStyle.Bold
End If
If isItalicNeeded Then
    targetStyles = targetStyles Or FontStyle.Italic
End If
If needsUnderline Then
    targetStyles = targetStyles Or FontStyle.Underline
End If

' 用组合好的样式创建字体
Dim customFont As New Font("微软雅黑", 11, targetStyles)

要是需要移除某个样式，用And Not就行：

' 移除下划线样式
targetStyles = targetStyles And Not FontStyle.Underline

这种方式比写一堆If...Else判断所有组合（比如Bold+Italic、Bold+Underline等）要灵活太多，不管你要加多少种样式，都可以通过简单的位运算来实现，完全符合“添加/追加”的需求。

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