[Visual Basic, C#, C++] 下面的示例使用派生类 TextBox 并验证用户输入的电子邮件地址。如果电子邮件地址不是包含“@”和“.”的标准格式,则验证失败,显示一个 ErrorProvider 图标,并取消该事件。本示例假定已在窗体上创建了一个 TextBox 和一个 ErrorProvider 控件。 [Visual Basic] Private Function ValidEmailAddress(ByVal emailAddress As String, ByRef errorMessage As String) As Boolean ' Confirm there is text in the control. If textBox1.Text.Length = 0 Then errorMessage = "E-mail address is required." Return False End If ' Confirm that there is an "@" and a "." in the e-mail address, and in the correct order. If emailAddress.IndexOf("@") > -1 Then If (emailAddress.IndexOf(".", emailAddress.IndexOf("@")) > emailAddress.IndexOf("@")) Then errorMessage = "" Return True End If End If errorMessage = "E-mail address must be valid e-mail address format." + ControlChars.Cr + _ "For example '[email protected]' " Return False End FunctionPrivate Sub textBox1_Validating(ByVal sender As Object, _ ByVal e As System.ComponentModel.CancelEventArgs) Handles textBox1.Validating Dim errorMsg As String If Not ValidEmailAddress(textBox1.Text, errorMsg) Then ' Cancel the event and select the text to be corrected by the user. e.Cancel = True textBox1.Select(0, textBox1.Text.Length) ' Set the ErrorProvider error with the text to display. Me.errorProvider1.SetError(textBox1, errorMsg) End If End Sub Private Sub textBox1_Validated(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles textBox1.Validated ' If all conditions have been met, clear the error provider of errors. errorProvider1.SetError(textBox1, "") End Sub
[Visual Basic]
Private Function ValidEmailAddress(ByVal emailAddress As String, ByRef errorMessage As String) As Boolean
' Confirm there is text in the control.
If textBox1.Text.Length = 0 Then
errorMessage = "E-mail address is required."
Return False End If ' Confirm that there is an "@" and a "." in the e-mail address, and in the correct order.
If emailAddress.IndexOf("@") > -1 Then
If (emailAddress.IndexOf(".", emailAddress.IndexOf("@")) > emailAddress.IndexOf("@")) Then
errorMessage = ""
Return True
End If
End If errorMessage = "E-mail address must be valid e-mail address format." + ControlChars.Cr + _
"For example '[email protected]' "
Return False
End FunctionPrivate Sub textBox1_Validating(ByVal sender As Object, _
ByVal e As System.ComponentModel.CancelEventArgs) Handles textBox1.Validating Dim errorMsg As String
If Not ValidEmailAddress(textBox1.Text, errorMsg) Then
' Cancel the event and select the text to be corrected by the user.
e.Cancel = True
textBox1.Select(0, textBox1.Text.Length) ' Set the ErrorProvider error with the text to display.
Me.errorProvider1.SetError(textBox1, errorMsg)
End If
End Sub
Private Sub textBox1_Validated(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles textBox1.Validated
' If all conditions have been met, clear the error provider of errors.
errorProvider1.SetError(textBox1, "")
End Sub
<script language="javascript">
function JHshNumberText()
{
if ( !(((window.event.keyCode >= 48) && (window.event.keyCode <= 57))
|| (window.event.keyCode == 13) || (window.event.keyCode == 46)
|| (window.event.keyCode == 45)))
{
window.event.keyCode = 0 ;
alert('请输入数字');
}
}
</script>
在textbox控件中加入onkeypress="JHshNumberText()"即可。
http://218.27.204.17/aspnet/a_user.aspx
onpropertychange="return IsNumeric();"
function IsNumeric()
{
var x = event.keyCode;
if((x!=16) && (x!=8) && (x!=40) && (x!=41) && (x!=45) && (x<48||x>57) && ( x <96 || x>105))
{
//event.keyCode = 0;
window.alert('只能数字和"("、")"。');
event.returnValue = false;
return false;
}
return true;
}
给一百分,按你要求给你写一个