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