一个VB 6.0的小程序
A.TXT 存放的是 字母
B.TXT 存放的是数字
C.TXT 存放的是中文
希望实现一个TEXTBOX 输入一个字符 如果是字母 则 LABEL.caption 显示A 以此类推 一共6组 TEXTBOX和LABEL。请问怎么实现呢？谢谢。
简单说就是如果输入的字符属于A中的元素则 LABEL显示A 否则B 要不就是C。
[解决办法]
写错个符号，因该是 <> 的
If Len(Text1.Text) = 0 Then
MsgBox "Text1中没有任何字符。"
ElseIf IsNumeric(Text1.Text) = True Then
MsgBox "Text1中的内容是数字。"
ElseIf LenB(StrConv(Text1.Text, vbFromUnicode)) <> Len(Text1.Text) Then
MsgBox "Text1中的内容包含中文。"
Else
MsgBox "Text1中的内容是普通的 ASCII 安全字符。"
End If
