驗證textbox無法輸入全形，漢字，字母，只能輸入數字

Private Sub txtbox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtbox1.TextChanged<br /> 'Try<br /> ' If Me.txtbox1.Text <> "" Then<br /> ' Dim a As Integer<br /> ' a = Convert.ToInt32(Me.txtbox1.Text)<br /> ' If (Me.txtbox1.Text.Length > 50) Then<br /> ' Me.txtbox1.Text = Me.txtbox1.Text.Substring(0, 50)<br /> ' Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!--<br />alert('資料過長，請重新輸入!')<br />// --></mce:script>")<br /> ' End If<br /> ' End If<br /> 'Catch ex As Exception<br /> ' Me.txtbox1.Text = ""<br /> ' Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!--<br />alert('格式錯誤，請重新輸入!')<br />// --></mce:script>")<br /> 'End Try<br /> dim i as Integer<br /> Dim result As Integer = 0<br /> For i = 0 To txtbox1.Text.Length - 1<br /> Dim a As String = txtbox1.Text.Substring(i, 1)<br /> If Asc(a) < 0 Then<br /> result = 1<br /> End If<br /> Next<br /> If (result = 1) Then<br /> Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!--<br />alert('格式錯誤，請重新輸入!')<br />// --></mce:script>")<br /> ElseIf (IsNumeric(txtDAH.Text.Trim()) = False) Then<br /> Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!--<br />alert('格式錯誤，請重新輸入!')<br />// --></mce:script>")<br /> Else<br /> If (Me.txtbox1.Text.Length > 38) Then<br /> Me.txtbox1.Text = Me.txtDAH.Text.Substring(0, 38)<br /> Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!--<br />alert('資料過長，請重新輸入!')<br />// --></mce:script>")<br /> End If<br /> End If<br /> End Sub<br />

 

利用IndexOf函數

 

Dim result As Integer = 0<br /> Dim strLen As Integer = checkObject.Length<br /> Dim i As Integer<br /> Dim baseStr As String<br /> baseStr = "0123456789"<br /> For i = 0 To strLen - 1<br /> If baseStr.IndexOf(checkObject.Substring(i, 1)) = -1 Then<br /> result = -1<br /> Exit For<br /> Else<br /> result = baseStr.IndexOf(checkObject.Substring(i, 1))<br /> End If<br /> Next