textbox中只能输入数字

 

    Private Sub txtTransferAmount_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTransferAmount.KeyPress
        If e.KeyChar >= "0" And e.KeyChar <= "9" Or e.KeyChar = Chr(Keys.Back) Then
            e.Handled = False
        Else
            e.Handled = True
        End If
    End Sub