vb.net将非constans字体样式添加到richtextbox选择中

有没有更好的方法用“添加/附加”方法构建FontStyle，而不是列出所有可能的组合

'l is an instance of class that holds bold/italic/underline as booleans

Dim fStyle As New FontStyle
If l.fontBold And Not l.fontItalic And Not l.fontUnderline Then
    fStyle = FontStyle.Bold
ElseIf Not l.fontBold And l.fontItalic And Not l.fontUnderline Then
    fStyle = FontStyle.Italic
ElseIf Not l.fontBold And Not l.fontItalic And l.fontUnderline Then
    fStyle = FontStyle.Underline
ElseIf l.fontBold And l.fontItalic And Not l.fontUnderline Then
    fStyle = FontStyle.Bold Or FontStyle.Italic
ElseIf l.fontBold And Not l.fontItalic And l.fontUnderline Then
    fStyle = FontStyle.Bold Or FontStyle.Underline
ElseIf Not l.fontBold And l.fontItalic And l.fontUnderline Then
    fStyle = FontStyle.Italic Or FontStyle.Underline
ElseIf l.fontBold And l.fontItalic And l.fontUnderline Then
    fStyle = FontStyle.Bold Or FontStyle.Italic Or FontStyle.Underline
End If

---

对。

FontStyle

enum有一个

FlagsAttribute

，这意味着您可以将enum常量与

或

组合

<Flags>
Public Enum FontStyle

见：

Dim fStyle As FontStyle = FontStyle.Regular

If l.fontBold
    fStyle = fStyle Or FontStyle.Bold
End If
If l.fontItalic
    fStyle = fStyle Or FontStyle.Italic
End If
If l.fontUnderline
    fStyle = fStyle Or FontStyle.Underline
End If