玄関へお回り下さい。
テキストボックスで数値しか入力できないように制限する (1個)  (SNo.045)

1.テキストボックスで数字しか入力できないように制限する その1(簡易型)
使用コントロール TextBox1  TextBox2
その他条件 WindowsXP(Vista) Visual Basic 2005(VB2008)
 
1.テキストボックスで数字しか入力できないように制限する その1(簡易型)
 
Private Sub TextBox1_KeyPress(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
'(.-1234567890[Enter][BackSpace])しか入力できないように制限する
    If e.KeyChar >= Chr(Keys.Space) And e.KeyChar < "-"c Or _
        e.KeyChar > "9"c Or e.KeyChar = "/"c Then
        Microsoft.VisualBasic.Beep()    'エラー音
        e.Handled = True                '入力キーを無効にする
    End If
End Sub
 
 
簡易的ならこれでもいいのですが、IME を使用したり、貼り付けられたら入力できてしまいます。



2004/05/27
2007/12/15


VBレスキュー(花ちゃん)
VB.NET2003  VB2005