リッチテキストボックスで選択したテキストの各文字をループして、各文字にフォントアスペクト(ファミリ、サイズ、またはスタイル)を適用する必要があります。このアスペクトは、フォントダイアログボックスを使用して選択されます。このコードに他の種類のダイアログボックス(カラーダイアログなど)を導入したくありません。
これまでのところ、私は暫定的に次のことを取得しましたが、これはおそらく間違っている可能性があります。
If aFontDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
If rtb.SelectionFont IsNot Nothing Then
rtb.SelectionFont = aFontDialog.Font
rtb.SelectionColor = aFontDialog.Color
Else
For index As Integer = 0 To rtb.SelectionLength - 1
'<<????
Next
End If
End If
編集
CodeProjectに関するこの記事では、www.codeproject.comよりも問題について詳しく説明してい ます...