VB.NET TextBox 只允许输入1-100之间的整数 简洁篇
浏览数：26 /
时间：2015年06月09日
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
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
