检查text文本(50分)

giantman1 2003-05-11 05:05:28
小弟在不久前遇到一问题:需要对text文本进行检查,text只能是字母和汉字。字母的好解决,但汉字怎么办??望大虾解决。
...全文
7 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ghiewa 2003-06-09
你只要在VB的IDE环境中,调用AutoCAD的VBA连接库,在那里也可以编辑窗体的,然后把写好的代码在 AutoCAD中运行就有了
回复
ghiewa 2003-06-09
tgh
回复
vbsunboy 2003-05-23
mytext = "0123456789~!@#$%^&*()-=\_+|"
同意,只要把不让输入的都列在这里就可以了
回复
支持.............
回复
TimLee✿ 2003-05-11
这个程序只要再改动一下 Mytext 就可以了,刚才在VB上测试时忘了加符号,现在加上 ^_^

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


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


谁还有更好的方法,欢迎指教!

回复
TimLee✿ 2003-05-11
设定一个函数,自定义~~~~~~~程序如下:

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
回复
danielinbiti 2003-05-11
同意楼上
回复
自由之眼 2003-05-11
在keypress中判断
只要是keyascii<0 的基本上都是汉字。
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-11 05:05
社区公告
暂无公告