1762.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 22 行

HTML
22
字号
<html>  <head>    <title>Re: 如何设定text1.text为数字否则错误</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>Re: 如何设定text1.text为数字否则错误</h1>    </center><HR><p>Posted by <a href="mailto:yfwu@iname.com">小吴</a> on January 21, 1998 at 01:34:55:<p>In Reply to: <a href="1752.html"><b>如何设定text1.text为数字否则错误</b></a> posted by 阿东 on January 19, 1998 at 22:56:21:<p>1. 在 Command1_Click 事件程序中加入一段程式即可<br> If Not Text1 Like "####" Then<br>  MsgBox "输入错误!"<br>  Text1.SetFocus<br>  End Sub<br> End If<p>2. 在 Text1_KeyPress 事件中打入<br> If Len(Text1) = 4 Then SendKeys "{tab}", true<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1762--></ul><!--end: 1762--><br><HR><p></body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?