Question

VB检测一个textbox中是否有中文字符

按下按钮1，判断text1里面是否有中文字符，有的话msgbox“只能是英文、数字和符号的组合”，没的话继续执行接下来的。

求助！！怎么弄！

Answer 1

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To Len(Text1.Text)
    If Asc(Mid(Text1.Text, i, 1)) < 0 Then
        MsgBox "只能是英文、数字和符号的组合"
        Exit Sub
    End If
Next
'....继续其他代码
End Sub

Answer 2

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码表.

Answer 3

同上同上同上同上