文字入力の制限をするには？ (ID:108602)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 TextBoxのKeyPressイベントで数値と.と-以外の文字の番号を0にすればOKです。ちなみに文字の番号を調べるには"Asc("調べたい文字一文字")"でしらべられます。実際のコードとしては Private Sub Text1_KeyPress(KeyAscii As Integer) 'MsgBox KeyAscii '押されたキーの番号を表示(必要ないしねｗｗｗ） If KeyAscii >= 48 And KeyAscii <= 57 Then '数値 ElseIf KeyAscii = 46 Or KeyAscii = 45 Then '.や- ElseIf KeyAscii = 13 Then 'Enter ElseIf KeyAscii = 8 Then 'BackSpace Else KeyAscii = 0 End If End Sub これで数値と.と-以外の入力は受け付けません。または拒否するキーがわかっている場合は、そちらを拒否の形をとるほうがスマートですね（量多くなるとは思いますが）