vb 中怎样判断输入的字符是否是汉字
答案:2 悬赏:30
解决时间 2021-02-12 07:01
- 提问者网友:话酸浅沫
- 2021-02-11 07:49
vb 中怎样判断输入的字符是否是汉字
最佳答案
- 二级知识专家网友:虚伪的现实
- 2021-02-11 08:30
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码表.
我来补充一下代码吧,在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码表.
全部回答
- 1楼网友:何以畏孤独
- 2021-02-11 08:35
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码表.
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯