| 投稿日 | ： 2006/03/28(Tue) 15:23 |
| 投稿者 | ： 風見鶏 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: ＭＳ－ＷＯＲＤのようなフォント強制設定 |
花ちゃんさん、回答ありがとうございます。
説明不足な感じで申し訳ありません。
プログラムのリッチテキストボックスの属性はユーザーがフォント以外にもテキストの文字色や
背景色も設定できるような形になっているのです。
> 又は、最初から日本語フォントだけをコンボボックスに表示しておくとか。
日本以外、中国や英語圏等でもこのプログラムは使用されるため、日本語フォント以外も
使用できるようにしておかないといけないのです。
フォントについては以下のような形でコンボに登録しています。
For i = 0 To Screen.FontCount - 1
If Mid$(Screen.Fonts(i), 1, 1) <> "@" Then
Call Combo1.AddItem(Screen.Fonts(i))
End If
Next i
で、何がわからないのか？ということですが、いろいろ試してみた中で出てきた質問としては
①Combo1.Textの内容が日本語フォントなのか？それとも日本語フォント以外なのかの判別方法
・Shift-JIS（Charset128）で判別だと、ＭＳゴシックやＭＳ明朝が除かれてしまい
困ってしまいました。
日本語が表示できるフォントは全て日本語フォントとしたいと思っております。
②リッチテキストボックスへ入力時（RichTextBox1_Changeイベント）、日本語(全角および半角カナ)
が入力されたかどうかの判別
・全角が入力されたかという判別についてはネット上で検索してこれたのですが、半角カナが入力
されたと判断するには、どうしたらよいでしょうか？
③リッチテキストボックスに入力されているテキストおよび文字色、背景色は現在表示されている
ままの形でフォント属性のみを変更することが出来るでしょうか？
以上たくさん書いてしまい恐縮する次第ですが、どうしたらよいでしょうか？
よろしくお願いいたします。