只允许输入数字的一个小方法

 

只允许输入数字的一个小方法（bug：如果用鼠标粘贴文字，就不太好用了）^0^

     ' 只允许输入数字
     Private   Sub txtbox_KeyPress() Sub txtbox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles  txtbox.KeyPress
    If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Then
    e.Handled = False
    Else
    e.Handled = True
   End If
 End Sub