ベストアンサー

文字入力について教えてください。

2001/11/20 16:08

１．文字の大文字・小文字固定入力　　(1)．半角で大文字のみ入力　　(2)．半角で小文字のみ入力　　(3)．全角で大文字のみ入力　　(4)．全角で小文字のみ入力　　テキストボックスの入力で上記(1)～(4)の入力方法をしたいのですが　　どおすればよいのか教えてください。　　※UCase・LCaseで変換できるのはしっているのですが　　　１文字単位でできたいのですが２．半角の数字のみの入力　　aの入力を受け付けないようなことおしたいのですが　　できないでしょうか？

chiba-masaru
お礼率23% (40/169)

Visual Basic
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

maruru01
ベストアンサー率51% (1179/2272)

2001/11/20 16:32 回答No.1

こんにちは。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)とＡ～Ｚ(-32160～-32135)のみ）　　If KeyAscii <> 8 And (KeyAscii < -32160 Or KeyAscii > -32135) Then 　　'1.(4)全角小文字のみ（バックスペース(8)とａ～ｚ(-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文は目的のものを選んで下さい。では。