リッチテキストボックス内のフォント変更

解決済

質問者：nobunorinobu
質問日時：2004/12/19 08:38
回答数：1件

VB.NETプログラミングしています。
基礎的なことだと思うのですが、
調べてもわかりませんのでご教示ください。
RichTextBoxを使ってテキストエディタを作っています。
このリッチテキストボックス内でキーダウンイベントを発生させ、
選択されている文字のフォント変更（例えばボールド体やイタリック体、下線付加）したいのですができません。
ワードのような機能を付加したいだけなのですが、うまくいきません。
つまり、
If e.Control = True Then
　With RichTextBox1
　　Select Case e.KeyCode
　　　　Case Keys.B
　　（選択されている文字をボールド体にして、
　　　ボールド体の部分は非ボールド体にする）
End Select
End With
EndIf
の中の
「選択されている文字をボールド体にして、ボールド体の部分は非ボールド体にする」という処理ができません。
ご存知の方、ご教示ください。