| 投稿日 | ： 2003/12/12(Fri) 16:09 |
| 投稿者 | ： 孤軍奮闘 |
| ＵＲＬ | ： |
| タイトル | ： Re^2: テキストボックス中に漢字が入力されないようにしたい |
> > テキストボックスに入力したいのは、半角英数、半角カナのみとしたいのですが・・・
>
> 2Byte文字が入っているかどうかを調べれば良いと思います。
>
> If Len(Text1.Text) = LenB(StrConv(Text1.Text, vbFromUnicode)) Then
> Debug.Print "1Byte文字のみ"
> Else
> Debug.Print "2Byte文字が含まれてます"
> End If
>
> 入力時に制限するならChangeイベントで入力された2Byte文字を消していくようにすれば出来ます。
ありがとうございます。やってみます。