检查text文本（50分）

[giantman1]

小弟在不久前遇到一问题：需要对text文本进行检查，text只能是字母和汉字。字母的好解决，但汉字怎么办？？望大虾解决。

[自由之眼]

在keypress中判断
只要是keyascii<0 的基本上都是汉字。

[danielinbiti]

同意楼上

[TimLee✿]

设定一个函数，自定义～～～～～～～程序如下：

Dim mytext As String

Private Sub Form_Load()
mytext = "0123456789"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = TestText(KeyAscii, (mytext), True) 'Text1只接受mytext规定以外的字符。
End Sub


Function TestText(KeyIn As Integer, ListString As String, EditBasp As Boolean) As Integer
Dim TestDATList As String '定义限制字符表变量
Dim KeyOut As Integer '返回值变量
If EditBasp = True Then '测试BACKSPACE键是否有效
TestDATList = UCase(ListString)
Else
TestDATList = UCase(ListString) & Chr(8)
End If
If InStr(1, TestDATList, UCase(Chr(KeyIn)), 1) > 0 Then '键值是否在表中
KeyOut = 0 '是则不允许输入
Else
KeyOut = KeyIn '否则允许
End If
TestText = KeyOut '返回结果
End Function

[TimLee✿]

这个程序只要再改动一下 Mytext 就可以了，刚才在VB上测试时忘了加符号，现在加上 ^_^

mytext = "0123456789~!@#$%^&*()-=\_+|" 把你要禁止的字符打在这里面就行了


当然了，如果把上面的判断改一下，就可以只让用户输入指定的字符了～～～


谁还有更好的方法，欢迎指教！

[myhot-河马吃草]

支持.............

[vbsunboy]

mytext = "0123456789~!@#$%^&*()-=\_+|"
同意,只要把不让输入的都列在这里就可以了

[ghiewa]

tgh

[ghiewa]

你只要在ＶＢ的ＩＤＥ环境中，调用ＡｕｔｏＣＡＤ的ＶＢＡ连接库，在那里也可以编辑窗体的，然后把写好的代码在　ＡｕｔｏＣＡＤ中运行就有了