1.文字の大文字・小文字固定入力
  (1).半角で大文字のみ入力
  (2).半角で小文字のみ入力
  (3).全角で大文字のみ入力
  (4).全角で小文字のみ入力

  テキストボックスの入力で上記(1)~(4)の入力方法をしたいのですが
  どおすればよいのか教えてください。

  ※UCase・LCaseで変換できるのはしっているのですが
   1文字単位でできたいのですが

2.半角の数字のみの入力
  aの入力を受け付けないようなことおしたいのですが
  できないでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

こんにちは。

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文は目的のものを選んで下さい。
では。
    • good
    • 0
この回答へのお礼

ありがとうございました、大変参考になりました。

お礼日時:2001/11/22 10:59

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


これは入力時のみ?貼り付けも含むのですか?

キーボードの操作だけでなく、マウスの右クリックでも貼り付けがありますよね?
それも制限するのですか?
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング

おすすめ情報