1 Dim Str As String = "" 2 Private Sub txtRecond_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtRecond.KeyUp 3 txtRecond.Text = Regex.Replace(txtRecond.Text, "[^0-9]", "") 4 If txtRecond.Text = "" Then 5 Return 6 End If 7 Try 8 Dim num As Integer = Integer.Parse(txtRecond.Text) 9 txtRecond.Text = num.ToString() 10 If (num > 100) Or (num = 0) Then 11 txtRecond.Text = "" 12 End If 13 Catch ex As Exception 14 txtRecond.Text = "" 15 End Try 16 17 18 End Sub 19 20 Private Sub txtRecond_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtRecond.KeyPress 21 If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Or e.KeyChar = "." Then 22 If e.KeyChar = "." And InStr(txtRecond.Text, ".") > 0 Then 23 e.Handled = True 24 Else 25 e.Handled = False 26 End If 27 Else 28 e.Handled = True 29 End If 30 31 End Sub