ベストアンサー

テキストボックスの入力制限

2007/03/13 11:44

VB2005環境です。・全角文字のみ入力を受け付けるテキストボックス・半角文字のみ入力を受け付けるテキストボックス以上のような入力制限を持つコントロールを用意したいと思っています。 MaskedTextBoxを用いればできるかと思いましたが、それらしきプロパティが見当たりませんでした。やはりキーイベントを取得して…ということになるのでしょうか？

noname#32335

Visual Basic
回答数4
ありがとう数5

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

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

ベストアンサー

tsukasa-12r
ベストアンサー率65% (358/549)

2007/03/13 23:31 回答No.3

こんな感じでどうでしょうか？（あまり検証してませんが。）半角のみＯＫの場合 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress If (AscW(e.KeyChar) < &H100) Then e.KeyChar = ChrW(0) End If End Sub 全角のみＯＫの場合 Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress If (AscW(e.KeyChar) >= &H100) Then e.KeyChar = ChrW(0) End If End Sub

質問者

お礼 2007/03/16 10:04

大変参考になりました。流用させていただいて、目的の動作にすることができました。ありがとうございました。

ログインすると、全ての回答が全文表示されます。

その他の回答 (3)

tsukasa-12r
ベストアンサー率65% (358/549)

2007/03/14 00:55 回答No.4

すみません。半角のみＯＫの場合 ... Handles TextBox2.KeyPress ↓ 半角のみＯＫの場合 ... Handles TextBox1.KeyPress に訂正させてください。

ログインすると、全ての回答が全文表示されます。

akieica
ベストアンサー率0% (0/3)

2007/03/13 17:01 回答No.2

はい、ケージングは大文字小文字です、で、ImeModeというプロパティでAlphaFullにすると全角英字、alphaにすると半角英字でIMEが立ち上がります。で、DISABLEにするとIMEが不可になるので、半角英字のみになります。もう一つのやり方としては、 validatingイベントにてsenderにたいして Dim ctlValue As TextBox = CType(sender, TextBox) ctlValue.Text = StrConv(ctlValue.Text.ToUpper, VbStrConv.Narrow) Narrowで半角。WIDEで全角。というような強制変換をかぶせるとかですかね。。。

質問者