只允許輸入數字的一個小方法

 

只允許輸入數字的一個小方法（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