只允许输入1-100之间的整数代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】只允许输入1-100之间的整数

作者:dezai / 发布于2014/7/17/ 1442


	Dim Str As String = ""
	 Private Sub txtRecond_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtRecond.KeyUp
	 txtRecond.Text = Regex.Replace(txtRecond.Text, "[^0-9]", "")
	 If txtRecond.Text = "" Then
	 Return
	 End If
	 Try
	 Dim num As Integer = Integer.Parse(txtRecond.Text)
	 txtRecond.Text = num.ToString()
	 If (num > 100) Or (num = 0) Then
	 txtRecond.Text = ""
	 End If
	 Catch ex As Exception
	 txtRecond.Text = ""
	 End Try

	
	 End Sub

	 Private Sub txtRecond_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtRecond.KeyPress
	 If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Or e.KeyChar = "." Then
	 If e.KeyChar = "." And InStr(txtRecond.Text, ".") > 0 Then
	 e.Handled = True
	 Else
	 e.Handled = False
	 End If
	 Else
	 e.Handled = True
	 End If

	 End Sub

试试其它关键字

同语言下

可能有用的

dezai贡献的其它代码(1065)