请教谢谢

Question

向文本框输入内容，回车执行一些程序代码能否写成这样sub form1_keypress(keyascii as intger)
if keyascii=13 then
     .
     .
     .
     .
end if
判断是否是回车然后执行程序代码end sub

Answer 1

Private Sub text1_keydown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
               .
               .
               .