vb.net - フォントを太字/斜体/アンダースコアVisualBasicにする

Question

リッチテキストボックスのフォントを変更するフォントダイアログがすでにあり、機能します（ダイアログの適用ボタンを機能させる方法はわかりませんが）

また、太字、下線、取り消し線、斜体の4つのボタンを作成しました。

私がほとんどの人が使っているのを見つけた方法は

Dim boldf as NewFont(....) 

次に、選択したテキストに適用します。

それに関する問題は、フォントを太字のみに変更し、既存のスタイルに追加しないことです。

お知らせ下さい。

Answer 1

Private Sub andlowitwasbold_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles andlowitwasbold.Click
    If RichTextBox1.SelectionFont.Bold Then 'its already bold, so set it to regular
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.FontFamily, RichTextBox1.Font.Size, FontStyle.Regular)
    Else 'make it bold
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.FontFamily, RichTextBox1.Font.Size, FontStyle.Bold)
    End If
End Sub

Answer 2

これを行う別の方法は次のとおりです。

RichTextBox1.SelectionFont.Bold = Not(RichTextBox1.SelectionFont.Bold)