在界面程序設計中，有時我們只想讓TextBox控件接收數字型輸入，而其他輸入被忽略，這怎么實現呢？下面就給出了具體的源代碼：

我們為TextBox添加KeyPress事件

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then
        Beep
        KeyAscii = 0
    End If
End Sub

上面的具體原理是：判斷按下鍵的KeyAscii值是否在48-57之間，如果是在其間，則輸入的為數字，否則就不是，但是有時我們還可能使用到退ge鍵，以方便輸入錯誤時刪除，這樣的話，所以必須加上KeyAscii <> 8，以在使用退ge鍵時不被忽略。