那位大哥给帮小弟一把，解决个小问题！！
<P class=MsoBodyText style="MARGIN: 0cm 0cm 0pt"><BR clear=all> 矩形<P class=MsoBodyText style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 63pt"><?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t202 path="m0,0l0,21600,21600,21600,21600,0xe" o:spt="202" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:path o:connecttype="rect" gradientshapeok="t"></v:path></v:shapetype><v:shape id=_x0000_s1026 style="MARGIN-TOP: 0px; Z-INDEX: 1; MARGIN-LEFT: 90pt; WIDTH: 36pt; POSITION: absolute; HEIGHT: 15.6pt" type="#_x0000_t202"></v:shape>
<DIV class=shape style="PADDING-RIGHT: 7.2pt; PADDING-LEFT: 7.2pt; PADDING-BOTTOM: 3.6pt; PADDING-TOP: 3.6pt" v:shape="_x0000_s1026"><FONT face="Times New Roman"> </FONT><v:shape id=_x0000_s1027 style="MARGIN-TOP: 0px; Z-INDEX: 2; MARGIN-LEFT: 189pt; WIDTH: 36pt; POSITION: absolute; HEIGHT: 15.6pt" type="#_x0000_t202"><FONT face="Times New Roman" size=3></FONT></v:shape> 长度 宽度</DIV>
<P class=MsoBodyText style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 63pt; mso-char-indent-count: 6.0; mso-char-indent-size: 10.5pt">中心点 拾取
<P class=MsoBodyText style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 63pt; mso-char-indent-count: 6.0; mso-char-indent-size: 10.5pt">确定 取消
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; tab-stops: 189.0pt">本人作了像上面的一个小东西，不过还是有几个问题请大家给指点一下子，就是在输入数据时，如果误输入了非数字数据运行的话，会造成<FONT face="Times New Roman">CAD</FONT>的错误，还请那们高手给小弟指点一下，给写一下数字错误处理的程序段，就是只能在文本框内输入数字，如果输入其它的字符将出现警告，小弟在这里先谢了！！
在“确定”按钮的click事件的前面加入对文本框内字符的判断，是数字通过；否则返回。
If Not IsNumeric(Text1.Text) Then<BR> Exit Sub<BR> End If<BR>
页:
[1]