中易网

vb 中怎样判断输入的字符是否是汉字

答案:2  悬赏:30  
解决时间 2021-02-12 07:01
vb 中怎样判断输入的字符是否是汉字
最佳答案
0<ascii<255
我来补充一下代码吧,在form中加入一个Text1
Private Sub Text1_Change()
If Text1.Text = "" Then Exit Sub '如果是空字符串,就退出此过程
Dim a
a = Asc(Mid(Text1.Text, Len(Text1.Text), 1))
If a > 255 Or a < 0 Then MsgBox "刚才输入的是汉字" Else MsgBox "刚输入的是字符"
End Sub
这是靠ASCII码来判断的,你根据你的程序需要进行修改吧,这是对输入框约束输入的比较常用的方法之一,你可以去搜索一下英文字符ASCII码表.
全部回答
0&lt;ascii&lt;255 我来补充一下代码吧,在form中加入一个text1 private sub text1_change() if text1.text = &quot;&quot; then exit sub &apos;如果是空字符串,就退出此过程 dim a a = asc(mid(text1.text, len(text1.text), 1)) if a &gt; 255 or a &lt; 0 then msgbox &quot;刚才输入的是汉字&quot; else msgbox &quot;刚输入的是字符&quot; end sub 这是靠ascii码来判断的,你根据你的程序需要进行修改吧,这是对输入框约束输入的比较常用的方法之一,你可以去搜索一下英文字符ascii码表.
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
男友对女友说别这么随便是什么意思,别跟我说
如何解除监护人与被监护者的关系?
58同城的合作网站是什么概念,共享数据库吗?
粉婆婆土豆粉在哪里啊,我有事要去这个地方
拇外翻去哪个科室看
我男朋友帮他的一个朋友担保了150W借条。可是
兴安盟恒昇电力工程有限公司在哪里啊,我有事
请问怎样管理好一个俱乐部,谢谢~
什么是双专科?
永兴县现在电价涨到0、62元一度合理吗?
《天下3》79冰心有什么要求?
荷花幼儿园地址在什么地方,想过去办事
为什么我用winform做的程序运行比较慢,点击
藏爱·喜堂专业婚礼策划机构怎么去啊,有知道
米和公里怎么换算
推荐资讯
国外卖的匡威质量是不是要比国内的质量好很多
盒装牛奶满的时候向外倒容易洒,如何解决?
有什么适合拍短剧的小说
谁能告诉我这个发型怎么做出来的 本人头发又
法院的调解书上没盖公章有效吗?
MG VER 2.0的高达有哪些 要全
巴彦淖尔市五原县复兴镇复兴村村民委员会这个
吉利帝豪ebd到60迈码的时候闪烁?
有时候有干呕的症状是什么回事
初中学生自评怎么写
三国战记作弊nebula224和225怎么使用
求 结爱《千岁大人的初恋》1-8百度云资源
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?