# Text Control 自动换行

Posted by 小贤 on October 02, 1997 at 03:33:39:

我的表单用了5个Text Control ( Text1(0)......Text1(4) )
Tag 也设为 0 ..... 4
第4 , 5 个设 MultiLine=True
表单的KeyPreview=True
我是要在按下Enter 时自动跳到下一个Text
但在第 5 个Text (也就是 Text1(4)) 按下Enter 时是执行副程式
为何在第5个Text 按下Enter 时 , Text 会换行呢?第四个Text 并不会!
如果副程式 中没有 msgbox"save" 这行 就不会发生!!
请问这是什么情形!
我在Form_keyDown 写如下程式
Form_keydown(index as integer)
If not keycode=13 then exit sub
KeyCode = 0
Select Case Me.ActiveControl.Tag
Case 0
Text1(1).SetFocus
Case 1
Text1(2).SetFocus
Case 2
Text1(3).SetFocus
Case 3
Text1(4).SetFocus
Case 4
Text1(5).SetFocus
Case 5
Call save
End Select
End sub
副程式如下
Sub save()
msgbox"save"
end sub

Follow Ups:

- 换个方法做吧！ 小吴 00:29:00 10/03/97 (4)
  - Re: 换个方法做吧！ 小贤 02:25:39 10/03/97 (3)
    - 写在 KeyPress 而不是 KeyDown 小吴 18:05:38 10/05/97 (2)
      - Re: 写在 KeyPress 而不是 KeyDown 小贤 01:56:41 10/08/97 (1)
        - 你又没说 小吴 03:47:30 10/09/97 (0)