登 录
Private Sub txtbox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtbox1.TextChanged 'Try ' If Me.txtbox1.Text <> "" Then ' Dim a As Integer ' a = Convert.ToInt32(Me.txtbox1.Text) ' If (Me.txtbox1.Text.Length > 50) Then ' Me.txtbox1.Text = Me.txtbox1.Text.Substring(0, 50) ' Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!-- alert('数据过长,请重新输入!') // --></mce:script>") ' End If ' End If 'Catch ex As Exception ' Me.txtbox1.Text = "" ' Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!-- alert('格式错误,请重新输入!') // --></mce:script>") 'End Try dim i as Integer Dim result As Integer = 0 For i = 0 To txtbox1.Text.Length - 1 Dim a As String = txtbox1.Text.Substring(i, 1) If Asc(a) < 0 Then result = 1 End If Next If (result = 1) Then Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!-- alert('格式错误,请重新输入!') // --></mce:script>") ElseIf (IsNumeric(txtDAH.Text.Trim()) = False) Then Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!-- alert('格式错误,请重新输入!') // --></mce:script>") Else If (Me.txtbox1.Text.Length > 38) Then Me.txtbox1.Text = Me.txtDAH.Text.Substring(0, 38) Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!-- alert('数据过长,请重新输入!') // --></mce:script>") End If End If End Sub
利用IndexOf函数
Dim result As Integer = 0 Dim strLen As Integer = checkObject.Length Dim i As Integer Dim baseStr As String baseStr = "0123456789" For i = 0 To strLen - 1 If baseStr.IndexOf(checkObject.Substring(i, 1)) = -1 Then result = -1 Exit For Else result = baseStr.IndexOf(checkObject.Substring(i, 1)) End If Next
抱歉!评论已关闭.