以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求窗体中文本框验证是不是中文的那页帮助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=21646)

--  作者:goodhi
--  发布时间:2012/7/19 17:32:00
--  求窗体中文本框验证是不是中文的那页帮助
求窗体中文本框验证是不是中文的那页帮助
--  作者:czy
--  发布时间:2012/7/19 18:07:00
--  

是不是要这个?

 

http://www.foxtable.com/help/topics/0610.htm

 

 


--  作者:goodhi
--  发布时间:2012/7/19 21:45:00
--  
就是 输入文本框做个判断看看是不是中文的,如果是就不允许保存,听人说帮助有写了,找不着
--  作者:blackzhu
--  发布时间:2012/7/20 7:53:00
--  
连接不是给你了.
--  作者:goodhi
--  发布时间:2012/7/20 10:14:00
--  
如果没有那页的帮助,狐爸帮忙写个例子好吗?就是文本框验证是否中文,不是用数据表限定
--  作者:czy
--  发布时间:2012/7/20 10:39:00
--  

如果要限制某个文本框控件输入中文,可以将中文输入属性设为false

如果一定要在事后进行判断可以用asc进行循环判断。


--  作者:czy
--  发布时间:2012/7/20 10:58:00
--  

这样遍历一下试试

 

Dim str As String = e.Form.Controls("TextBox1").Value
For i As Integer = 1 To str.Length
    If Asc(Mid(str,i,1)) < 0
        MessageBox.Show("有中文")
        Exit For
    End If
Next


--  作者:goodhi
--  发布时间:2012/7/20 12:09:00
--  
十分有效,原来中文的ASC都是负数啊,谢谢了