请教判断函数(如何限制一个文本框里只能输入数字,符号,或者英文)
现在要保证一个文本框的输入只能为数字,符号或者英文,请问应该用什么函数 问题点数:100、回复次数:6Top
1 楼MmMVP(杜霖:(现在是DooDu的马甲。。))回复于 2005-04-27 16:59:40 得分 30
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ctrldown
ctrldown = (Shift And vbCtrlMask) > 0
If (KeyCode >= 65 And KeyCode <= 90) Or (KeyCode >= 48 And KeyCode <= 57) Or ctrldown Or KeyCode = vbKeySpace Or KeyCode = vbKeyLeft Or KeyCode = vbKeyRight Or KeyCode = vbKeyBack Or KeyCode = vbKeyReturn Then
Else
MsgBox "请输入字符或数字!", vbInformation, "出错"
End If
End Sub
基本满足你的要求,但对ctrl+v来的汉字没判断,自己可以添加
Top
2 楼viena(维也纳N02)回复于 2005-04-27 16:59:51 得分 60
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 0 Or KeyAscii > 127 Then KeyAscii = 0
End SubTop
3 楼neuafei(阿飞)回复于 2005-04-27 17:00:56 得分 10
最方便的是不用函数,直接用masked edit控件。。。该控件的使用方法msdn有。该控件全称是
Microsoft Masked edit control 6.0Top
4 楼danpengzhang(me)回复于 2005-04-27 17:14:47 得分 0
多谢各位了,Top
5 楼danpengzhang(me)回复于 2005-04-27 17:21:55 得分 0
刚才给各位分数的时候出现错误,怎么才能重给啊Top
6 楼windstorm1981(花的太阳)回复于 2005-08-26 14:31:57 得分 0
IMEMode 属性选择3就可以,屏蔽了输入法Top




