|
▼つん さん:
>Salem さん、ichinoseさんおはようございます。
>横から失礼します。
>
>>また、質問なんですが、テキストボックスで
>>40文字(CHAR型)入力制限をしたいのですが、
>>何か良い方法はないでしょうか?
>>LenBを使用して
>>
>>IF LenB(TextBox1) > 40 THEN
>> ・・・・・・・・・・・
>>END IF
>>
>>このようにしようと思ったのですが、メッセージを
>>出さずに、入力制限の方法がわかりません・・・。
>>何か良い方法があったら教えてください。
>>宜しくお願い致します。
>
>こうかな?
>
>Private Sub TextBox1_Change()
>
> If LenB(TextBox1.Value) > 40 Then
> TextBox1.Value = LeftB(TextBox1.Value, 40)
> End If
>
>End Sub
>
>これで、40バイト以上入力できへんようになりますが・・・
>半角でも2バイトで1文字やから、これで20文字しか入力できへんなぁ。
説明が足りなかったです・・・。えっとですね、
全角で20文字 半角で40文字 入力制限をしたいんですよ・・・。
*************************************************
全角:あいうえおかきくけこさしすせそたちつてと
半角:1234567890123456789012345678901234567890
*************************************************
|
|