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 + -
显示快捷键?