Question

如何按回车提交

有一个文本框，分页用的。直接输入第几页，但文本框失去急焦点时候可以提交，按后面的按钮可以提交。怎么让按回车就提交？
我知道有一个char(13),但是请问写在什么地方？

Answer 1

写在Text1_KeyPress(KeyAscii As Integer)事件中：

Private Sub Text1_KeyPress(KeyAscii As Integer)
……
End Sub

回车的Ascii码是13
所以就是当按了13时，会……
if keyAscii=13 then……
按F2，类中有个KeyCodeConstants，里面有各个键的Ascii码，把13替换成其他数字，就可以表示按某键时会……

Answer 2

vbkey=13

Answer 3

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
MsgBox "这里写提交代码"
End If
End Sub

Answer 4

这样就可以了：
在属性窗口将文本框的属性 MultiLine 设置为 True， 属性 ScrollBars 设置为 2