|
7#
楼主 |
发表于 2007-10-24 16:59:58
|
只看该作者
如何判定是否输入了从小值到大值中任何一个或多个值呢?
1,Grant写的代码的结果确实可以剔除中文言,要改一下才是:
Dim ck, l, t, c
Dim i
ck = Me.text0
l = Len(ck)
t = ""
For i = 1 To l
c = Asc(Mid(ck, i, 1))
If c < 0 Then c = c + 65536
If c < 255 Then
t = t & Mid(ck, i, 1)
End If
Next
Me.text0 = t
'-------------------------------------------------------
不过我要的是只能输入汉字的限制,因为我不懂这种代码控制方法,就不会变通了,不知能否提供?
'----------------------------------------------
另外,andymark说的用ASCII码判断的方法,代码又如何写呢,以这样的目标功能为例:如果用户输入了任何英文字母或数字的一个或多个,就给出提示。(if ....then msgbox "")
--------
请两位高手帮忙!万谢! |
|