| 投稿日 | ： 2006/06/05(Mon) 14:39 |
| 投稿者 | ： GOD |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: RichTextBoxのフォント指定の方法 |
> RichTextBoxでいろいろなフォントの文字を表示したい。
> 具体例としては、化学式などで見られる C2H5ONa
> CHNは大きく、25は小さく。（aは小文字を使用する）。
> 下のようにしてみたのですが、文字を入力時には小さく見えるのですが
> 決定されたとき、前の文字の大きさになってしまいます。
> よろしくご指導ください。
>
こんなのでどうですか。
With RichTextBox1
flg = Not flg
If flg Then
.SelFontSize = 22
Else
.SelFontSize = 18
End If
.SelStart = Len(.Text)
.SelText = "H"
.SetFocus
End With