📄 1020.html
字号:
<html> <head> <title>Text Control 自动换行</title> </head> <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK=""> <center> <h1>Text Control 自动换行</h1> </center><HR><p>Posted by <a href="mailto:shien@wusnet.net.tw">小贤</a> on October 02, 1997 at 03:33:39:<p>我的表单用了5个Text Control ( Text1(0)......Text1(4) )<br>Tag 也设为 0 ..... 4<br>第4 , 5 个设 MultiLine=True<br>表单的KeyPreview=True<br>我是要在按下Enter 时自动跳到下一个Text<br>但在第 5 个Text (也就是 Text1(4)) 按下Enter 时是执行副程式<br>为何在第5个Text 按下Enter 时 , Text 会换行呢?第四个Text 并不会!<br>如果副程式 中没有 msgbox"save" 这行 就不会发生!!<br>请问这是什么情形!<br> <br>我在Form_keyDown 写如下程式<br>Form_keydown(index as integer) <br> If not keycode=13 then exit sub<br> KeyCode = 0<br> Select Case Me.ActiveControl.Tag<br> Case 0<br> Text1(1).SetFocus<br> Case 1<br> Text1(2).SetFocus<br> Case 2<br> Text1(3).SetFocus<br> Case 3<br> Text1(4).SetFocus<br> Case 4<br> Text1(5).SetFocus<br> Case 5<br> Call save<br> End Select<br>End sub<br>副程式如下<br>Sub save()<br> msgbox"save"<br>end sub<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1020--><!--top: 1023--><li><a href="1023.html"><b>换个方法做吧！</b></a> 小吴 <i>00:29:00 10/03/97</i>(<!--responses: 1023-->4)<ul><!--insert: 1023--><!--top: 1027--><li><a href="1027.html"><b>Re: 换个方法做吧！</b></a> 小贤 <i>02:25:39 10/03/97</i>(<!--responses: 1027-->3)<ul><!--insert: 1027--><!--top: 1040--><li><a href="1040.html"><b>写在 KeyPress 而不是 KeyDown</b></a> 小吴 <i>18:05:38 10/05/97</i>(<!--responses: 1040-->2)<ul><!--insert: 1040--><!--top: 1062--><li><a href="1062.html"><b>Re: 写在 KeyPress 而不是 KeyDown</b></a> 小贤 <i>01:56:41 10/08/97</i>(<!--responses: 1062-->1)<ul><!--insert: 1062--><!--top: 1074--><li><a href="1074.html"><b>你又没说</b></a> 小吴 <i>03:47:30 10/09/97</i>(<!--responses: 1074-->0)<ul><!--insert: 1074--></ul><!--end: 1074--></ul><!--end: 1062--></ul><!--end: 1040--></ul><!--end: 1027--></ul><!--end: 1023--></ul><!--end: 1020--><br><HR><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -