タイトル : Re^5: 同時書式設定 投稿日 : 2007/12/09(Sun) 13:56 投稿者 : 魔界の仮面弁士
> RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold) 注意点を二つほど。 まずフォントによっては、「特定のスタイルしか受け付けないもの」もあるという点です。 例えば、"Brush Script MT" フォントは斜体専用フォントであるため、 Dim style As FontStyle = Drawing.FontStyle.Regular Dim f As New Font("Brush Script MT", 12, style) のようにすると、 『フォント 'Brush Script MT' はスタイル 'Regular' をサポートしていません。』 という例外を発生させてしまいます。 任意のフォントを指定できるようにしている場合は、FontStyle を指定する前に、 本当にそのスタイルを指定できるかどうか調べるために、 Dim ff As New FontFamily("Brush Script MT") If ff.IsStyleAvailable( style ) Then のような事前チェックを加えておいた方が安全かもしれません。 もうひとつは、SelectionFont の利用について。 このプロパティは、選択範囲に複数のフォントが含まれていた場合、Nothing を 返します。これもまた例外を発生させる要因となりますので、事前チェックが必要です。 |