VB.NET TextBox 只允许输入1-100之间的整数 简洁篇

 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

View Code