在vb中如何区分全角或半角

2024-12-16 06:51:24

推荐回答（4个）

回答1：

画一个按钮和一个文本框,代码如下
Private Sub Command1_Click()
If Asc(Text1.Text) < 0 Then
gbascii = AscB(StrConv(Text1.Text, vbFromUnicode))
'区位码在16区之后的为汉字
If gbascii - 160 > 15 Then
MsgBox "是汉字"
Else
MsgBox "是全角符号"
End If
Else
MsgBox "是半角英文或数字或符号"
End If
End Sub
运行时在文本框里输入一个字符试试，这段代码只是判断第一个字符，暂时不去遍历...

回答2：

一般情况都应是在英文状态下输入的，大小写系统自动转换

回答3：

直接ctrl+空格键，关闭输入法

回答4：

ImmGetConversionStatus
IME_CMODE_FULLSHAPE