2

フォームにRichTextBoxコントロールがあります。Boldというラベルの付いたこのボタンもあります。誰かがRichTextBox内のテキストを選択してからボタンを押すと、選択したテキストが太字になります。それを行う方法はありますか？エンド ユーザー向けのシンプルで日常的なタスク。ありがとう。

4

2 に答える 2

3

RichTextBox の .SelectionFont プロパティを使用して、目的のスタイルを持つ Font オブジェクトを割り当てます。

例 - このコードは、ボタンのイベント ハンドラーにあります。

Dim bfont As New Font(RichTextBoxFoo.Font, FontStyle.Bold)
RichTextBoxFoo.SelectionFont = bfont
于 2008-09-20T19:11:03.080 に答える
3

現在選択されているテキストのフォント情報に応じて太字のオン/オフを切り替えることを考慮した上記のバリエーション:

    With Me.rtbDoc
        If .SelectionFont IsNot Nothing Then
            Dim currentFont As System.Drawing.Font = .SelectionFont
            Dim newFontStyle As System.Drawing.FontStyle

            If .SelectionFont.Bold = True Then
                newFontStyle = currentFont.Style - Drawing.FontStyle.Bold
            Else
                newFontStyle = currentFont.Style + Drawing.FontStyle.Bold
            End If

            .SelectionFont = New Drawing.Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
        End If
    End With

少しクリーンアップする必要があるかもしれません。これは古いプロジェクトから取得しました。

于 2008-09-22T17:49:06.320 に答える