投稿日 | : 2006/03/30(Thu) 04:00 |
投稿者 | : Starfish |
Eメール | : |
URL | : |
タイトル | : Re^3: MS−WORDのようなフォント強制設定 |
> (2)リッチテキストボックスへ入力時(RichTextBox1_Changeイベント)、日本語(全角および半角カ
ナ)
> が入力されたかどうかの判別
> ・全角が入力されたかという判別についてはネット上で検索してこれたのですが、半角カナが入力
> されたと判断するには、どうしたらよいでしょうか?
日本語は、&H80以上かで見ればいいのでは。"\"のフォントが日本語の
フォントは円マークですが、あちらのフォントはバックスラッシュです
このあたりも対応が必要かも。
Option Explicit
Dim mlngSelStart As Long
Dim mlngSelStart2 As Long
Private Sub RichTextBox1_Change()
Dim i As Long
Dim lngSelStart As Long
Dim lngSelStart2 As Long
lngSelStart = RichTextBox1.SelStart
lngSelStart2 = mlngSelStart2
If mlngSelStart2 < lngSelStart Then
For i = lngSelStart2 To lngSelStart - 1
RichTextBox1.SelStart = i
RichTextBox1.SelLength = 1
If RichTextBox1.SelText <> "" Then
If Asc(RichTextBox1.SelText) < &H80 And Asc(RichTextBox1.SelText) <> &H5C
Then
RichTextBox1.SelFontName = "Arial Black"
Else
RichTextBox1.SelFontName = "MS Pゴシック"
End If
End If
Next
RichTextBox1.SelStart = lngSelStart
End If
End Sub
Private Sub RichTextBox1_SelChange()
mlngSelStart2 = mlngSelStart
mlngSelStart = RichTextBox1.SelStart
End Sub