Question

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

Answer 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
运行时在文本框里输入一个字符试试，这段代码只是判断第一个字符，暂时不去遍历...

Answer 2

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

Answer 3

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

Answer 4

ImmGetConversionStatus
IME_CMODE_FULLSHAPE