如题所述
可以当数据完全输入完毕,在按钮单击事件里,执行处理程序前,加以判断:
dim i as integer
for i=1 to len(text1.text)
if (mid(text1.text,i,1)>="0" and mid(text1.text,i,1)<="9") Or _
(mid(text1.text,i,1)>="a" and mid(text1.text,i,1)<="z") Then
msgbox "输入的数据只包含数字和小写字母"
else
msgbox "输入的数据包含 [数字和小写字母] 之外的字符!"
end if
next i
dim i as integer
for i=1 to len(text1.text)
if (mid(text1.text,i,1)>="0" and mid(text1.text,i,1)<="9") Or _
(mid(text1.text,i,1)>="a" and mid(text1.text,i,1)<="z") Then
msgbox "输入的数据只包含数字和小写字母"
else
msgbox "输入的数据包含 [数字和小写字母] 之外的字符!"
end if
next i
温馨提示:答案为网友推荐,仅供参考
第1个回答 推荐于2018-04-30
根据输入字符的ASCII值判断。
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii >= 97 And KeyAscii <= 122 Then
Text1 = Text1
Else
KeyAscii = 0
End If
End Sub追问
可以给个代码我看一下吗?
追答代码已给出。
追问可以不用这一个事件吗?
可以不用这一个事件吗?
追答不用此事件貌似无法满足目的,上述代码限制文本框输入大写字母。
如果不用此事件,则需对输入字符串逐个用Asc函数判别。问题是遇到大写字母需要如何处理?
这个我不懂……
追答不懂就老实实用提供的代码。
本回答被网友采纳第2个回答 2015-07-01
楼上的不想要,那你想要什么追问
在通用过程中可以用来判断的
在通用过程中可以用来判断的
追答你是vb6还是.net的?
追问.net,可以只用一个if then就就解决吗?
追答那你判断后需要做什么事呢?有大写 是出提示 还是 阻止这次输入