zhang007 发表于 2004-10-28 22:28:00

输入数据的问题

我想在一个文本框中限制输入数字和英文，但下面的程序对输入“'”“/”等几个标点没有限制，请知道的高手指出错误，代码如下：


Private Sub Text2_KeyPress(KeyAscii As Integer)<BR>If (KeyAscii &lt; 48 And KeyAscii &gt; 122) Or (KeyAscii &lt; 65 And KeyAscii &gt; 57) Or (KeyAscii &lt; 97 And KeyAscii &gt; 90) Then<BR>MsgBox "请输入正确的数据！", 48, "注意"<BR>KeyAscii = 0<BR>End If<BR>End Sub

tfyyf 发表于 2004-10-29 07:53:00

Private Sub Text2_Change()<BR>                       key = Asc(Right(Me.Text2.Text, 1))<BR>                       If (key &lt; 48 And key &gt; 122) Or (key &lt; 65 And key &gt; 57) Or (key &lt; 97 And key &gt; 90) Then<BR>                                                       MsgBox "请输入正确的数据！", 48, "注意"<BR>                                                       'Me.Text2.Text = Left(Me.Text2.Text, Len(Me.Text2.Text) - 1)<BR>                       End If<BR>End Sub

雪山飞狐_lzh 发表于 2004-10-29 08:44:00

If Not ((KeyAscii &lt; Asc("z") And KeyAscii &gt; Asc("a")) Or (KeyAscii &lt; Asc("Z") And KeyAscii &gt; Asc("A")) Or (KeyAscii &lt; Asc("9") And KeyAscii &gt; Asc("0"))) Then<BR>

zhang007 发表于 2004-10-29 20:31:00

<A name=63042><FONT color=#000066><B>tfyyf</B></FONT></A> 说的也行，不过绕了一个圈子，还是<A name=63073><FONT color=#990000><B>lzh741206</B></FONT></A>说的比较直观。谢谢二位！！
页: [1]
查看完整版本: 输入数据的问题