質問: 文字入力について教えてください。 1.文字の大文字・小文字固定入力 (1).半角で大文字のみ入力 (2).半角で小文字のみ入力 (3).全角で大文字のみ入力 (4).全角で小文字のみ入力 テキストボックスの入力で上記(1)~(4)の入力方法をしたいのですが どおすればよいのか教えてください。 ※ucase・lcaseで変換できるのはしっているのですが 1文字単位でできたいのですが 2.半角の数字のみの入力 aの入力を受け付けないようなことおしたいのですが できないでしょうか?
回答: こんにちは。maruru01です。 1,2ともテキストボックスのkeypressイベントで入力規制をすればいいと思います。 private sub txttext1_keypress(keyascii as integer) '1.(1)半角大文字のみ(バックスペース(8)とa~z(65~90)のみ) if keyascii <> 8 and (keyascii < 65 or keyascii > 90) then '1.(2)半角小文字のみ(バックスペース(8)とa~z(97~122)のみ) if keyascii <> 8 and (keyascii < 97 or keyascii > 122) then '1.(3)全角大文字のみ(バックスペース(8)とa~z(-32160~-32135)のみ) if keyascii <> 8 and (keyascii < -32160 or keyascii > -32135) then '1.(4)全角小文字のみ(バックスペース(8)とa~z(-32127~-32102)のみ) if keyascii <> 8 and (keyascii < -32127 or keyascii > -32102) then '2.半角数字のみ(バックスペース(8)と0~9(48~57)のみ) if keyascii <> 8 and (keyascii < 48 or keyascii > 57) then keyascii = 0 end if end sub 一応バックスペースも入力可にしました。 if文は目的のものを選んで下さい。 では。