| |
あいんすとさん、ちゃっぴ さん、こんにちは。
>>テキストボックスに入力する際、言語バーを
>>直接入力に固定することって出来ますか？
>TextBox といっても2種類ありますが･･･
固定はAPIを使うんでしょうかねえ！！
でも、
Changeイベントで
'===================================================
Private Sub TextBox1_Change()
Dim newtxt As String
With TextBox1
.IMEMode = fmIMEModeOff
newtxt = ""
For idx = 1 To Len(.Text)
If LenB(StrConv(Mid(.Text, idx, 1), vbFromUnicode)) = 1 Then
newtxt = newtxt & Mid(.Text, idx, 1)
End If
Next
.Text = newtxt
End With
End Sub
とすれば、固定に近いところまではできますよ！！
あっ、あいんすとさんがおっしゃっているテキストボックスが
ユーザーフォームのテキストボックスだとして・・・。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
