直接入力モードになった時、その文字列も全角にするには？ (ID:123789)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 みなさん、お返事ありがとうございます。 通ってみたさんの意見を参考にしたのがコメントで、 今回はｐhantomさんの意見を取り入れて、作ってみました。 全角で確定されたとき、ちゃんと全角になったので本当に助かりました。 ありがとうございました＾＾ Private Sub Text1_Change() Dim intStart As Integer intStart = Text1.SelStart If Len(Text1.Text) <> LenB(Text1.Text) Then Text1.Text = StrConv(Text1.Text, vbWide) End If ' Text1.Text = Replace(Text1.Text, "\", "¥") Text1.SelStart = intStart + 1 End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If Text1.IMEMode <> 1 Then Text1.IMEMode = 1 End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 92 Then '半角の\が入力されたら KeyAscii = -32369 '強制的に全角¥に変換 End If End Sub