【实例说明】
    在输入文本时,只允许用户输入数字。

【编程思路】
    在Text的Keypress事件下判断输入的字符是否为数字。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在窗体上放置一个TextBox控件。

    3.源程序  [素材源程序下载]

方法(一)：

Private Sub Text1_KeyPress(KeyAscii As Integer)
        Select Case KeyAscii
        Case Asc("0") To Asc("9"), vbKeyBack
                'text Change
        Case Else
                KeyAscii = 0
        End Select
End Sub

方法(二)：

Private Sub Text1_KeyPress(KeyAscii As Integer)
        If KeyAscii = 47 Or _
        KeyAscii = 48 Or _
        KeyAscii = 49 Or _
        KeyAscii = 50 Or _
        KeyAscii = 51 Or _
        KeyAscii = 52 Or _
        KeyAscii = 53 Or _
        KeyAscii = 54 Or _
        KeyAscii = 55 Or _
        KeyAscii = 56 Or _
        KeyAscii = 57 Or KeyAscii = 8 Then
                'text change
        Else:
                'nothing shows
                KeyAscii = 0
        End If
End Sub