1. 該判斷事件是TextBox的keypress 事件中進行判斷的

創(chuàng)新互聯(lián)公司專注于雙陽企業(yè)網站建設,成都響應式網站建設公司,成都商城網站開發(fā)。雙陽網站建設公司,為雙陽等地區(qū)提供建站服務。全流程定制網站制作，專業(yè)設計，全程項目跟蹤，創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務

2. 判斷key（e.KeyChar）是不是數字、小數點、或者負號

3. 判斷是否多次輸入負號或者小數點

代碼如下：

If IsNumeric(e.KeyChar) OrElse e.KeyChar = "." OrElse e.KeyChar = "-" Then

Dim strCash As String =TextBox1.Text

If strCash.Contains(".") Then

If strCash.Split(".").Length > 2 Then

e.Handled = True

End If

End If

If strCash.Contains("-") Then

If strCash.Split("-").Length > 2 Then

e.Handled = True

End If

If strCash.Substring(0, 1) <> "-" Then

e.Handled = True

End If

If strCash.Length > 1 Then

If strCash.Substring(1, 1) = "." Then

e.Handled = True

End If

End If

End If

ElseIf Not Asc(e.KeyChar) = Keys.Back Then

e.Handled = True

End If

代碼如上，如果有問題，歡迎修改指正

創(chuàng)新互聯(lián)www.cdcxhl.cn，專業(yè)提供香港、美國云服務器，動態(tài)BGP最優(yōu)骨干路由自動選擇，持續(xù)穩(wěn)定高效的網絡助力業(yè)務部署。公司持有工信部辦法的idc、isp許可證， 機房獨有T級流量清洗系統(tǒng)配攻擊溯源，準確進行流量調度，確保服務器高可用性。佳節(jié)活動現(xiàn)已開啟，新人活動云服務器買多久送多久。

分享名稱：VB.Net文本框TextBox只允許輸入數字判斷-創(chuàng)新互聯(lián)
網頁地址：http://weahome.cn/article/jiojs.html