76.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 10 行

 使回车具有 Tab 的功能   
       
在 VB 中，使用回车结束一个录入时，光标不能自动移到下个对象。解决方法是在该对象的 KeyPress 事件中增加以下的代码：

If KeyAscii = 13 Then
SendKeys "{Tab}"
KeyAscii = 0
End If

98-7-04 更新：如果表单中有许多对象，在所有的对象中增加以上的代码是繁琐的，解决方法是：设置表单的 KeyPreview 属性为 True，在表单的 KeyPress 中增加以上的代码。而对于无须该功能的对象，如按钮，将其 TabStop 设置为False。