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