VB 文本框的BUG

我要在VB.NET中的文本框中实现只能输入数字，不能输入文本
我在代码如下：
不知道错在哪里，请各位高手指点一下
小弟弟我是刚学的

Dim temtext As Integer
        Select Case ("temtext")
            Case ""
                MsgBox(temtext.ToString)
            Case "char"
                MsgBox("请输入数字")
            Case Else
        End Select --------------------编程问答-------------------- Dim temtext As Integer
        Select Case "integer"
            Case "integer"
                MsgBox(temtext.ToString)
            Case "strchar"
                MsgBox(" strchar=请输入数字")
            Case Else
        End Select

哪个地方有问题啊 --------------------编程问答-------------------- if IsNumeric(ChrW(temtext)) then --------------------编程问答-------------------- Select Case ("temtext")是什么意思？

你最好看看Select Case 的语法

*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html --------------------编程问答-------------------- Dim temtext As Integer
        If IsNumeric(ChrW(temtext)) Then
            MsgBox("")
        Else
            MsgBox("strchar=请输入数字")
        End If

    End Sub

这个还是不行啊 --------------------编程问答-------------------- 代码的问题，没有你这么用的

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not (Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57) Then e.Handled = True
    End Sub --------------------编程问答-------------------- 楼上的57，48是什么啊？？ --------------------编程问答-------------------- Dim temtext As Integer
        If IsNumeric("temtext") = True Then
            MsgBox("")
        ElseIf strchar("temtext") = True Then
            MsgBox("strchar=请输入数字")
        End If

STRCHAR有问题
  ElseIf   。。。。。。("temtext") = True Then
。。。。应该写什么啊 --------------------编程问答-------------------- 又重新写了 1个还是不行

       Dim temtext As Integer
        If IsNumeric("temtext") = True Then
            MsgBox("")
        ElseIf IsNumeric("temtext") = False Then
            MsgBox("strchar=请输入数字")
        End If
那位大虾详细的讲一下啊 --------------------编程问答-------------------- Private Sub JXTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JXTextBox.KeyPress
        Dim valid As Boolean = False
        Dim s As String = "."
        Dim anyof() As Char = s.ToCharArray()

        If Char.IsDigit(e.KeyChar) = True OrElse Char.IsPunctuation(e.KeyChar) = True OrElse Char.IsControl(e.KeyChar) = True Then
            '保证用户输入数字，或者小数点，或者del，以及bk space等控制键
            If sender.Text.IndexOfAny(anyof) <> -1 And e.KeyChar.Equals(anyof(0)) = True Then
                '保证用户只输入一个小数点
                valid = False
            Else
                valid = True
            End If
        End If
        If valid = False Then
            MsgBox("非法输入,必须输入有效数值")
            e.Handled = True
        End If
        If e.KeyChar = Chr(13) Then
            e.Handled = True
            SendKeys.Send("{TAB}")
        End If

    End Sub
在通过这个事件控制一下
    Private Sub JXTextBox_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles JXTextBox.Validating
        Try
            Dim s As Single = Convert.ToSingle(sender.Text)
        Catch ex As Exception
            MsgBox("必须输入有效数值")
            e.Cancel = True
        End Try
    End Sub

--------------------编程问答-------------------- Dim temtext As Integer
        If temtext = True Then
            MsgBox("")
        ElseIf temtext = False Then
            MsgBox("请输入数字")
        End If

这个也不行啊 --------------------编程问答-------------------- 楼上的代码运行不出啊 --------------------编程问答-------------------- 有简单点的吗？ --------------------编程问答-------------------- 这个还不行？真服了你了！我自己用着的摘出来的！你不会是copy后一点都没有改动吧？贴你的错误出来！ --------------------编程问答-------------------- 为什么我的这个不行啊

  Dim temtext As Integer
        If temtext = True Then
            MsgBox("")
        ElseIf temtext = False Then
            MsgBox("非法输入，请输入数字")
        End If --------------------编程问答-------------------- 我想知道，我这段代码如何改进才能用 --------------------编程问答-------------------- Dim temtext As Integer
        '输入数字
        If temtext = True Then
            '不可以输入数字以外的
        ElseIf temtext = False Then
        MsgBox("非法输入，请输入数字")
        End If
--------------------编程问答-------------------- 冒昧的问一下，temtext 是什么？你把它设置成Integer（32 位（4 字节）有符号整数，取值范围为 -2,147,483,648 到 2,147,483,647）有什么用处？如果是用来保存输入的内容，请问假设你输入的是字母"s"作为String（字符串）如何转换成Integer类型？

上面我给你的代码，48，57是什么，看看ASCII码吧，基础的东西不会怎么做程序，多动手，百度，Google不是摆设~~~~编程不是死钻牛角尖就可以的

补充：.NET技术 ,  VB.NET