[问题] vba表单 Keydown 遇到SetFocus

楼主: waiter337 (给开司一罐苏格登)   2016-12-09 01:57:50
目前有个疑问
假设有两个控件
textbox1

CommandButton1
当我用
Private Sub TextBox1_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
If KeyCode.Value = 13 And TextBox1.Text <> "" Then
textbox1.Setfocus
这种方式在textbox1上面输入数字后 按下enter
光标却一直跳去CommandButton1
怀疑是
1.按下enter 程式确实执行完成,光标跳至textbox1
2.当我放开enter ,结果照着excel默认值,就又跳去CommandButton1
我想要一直在textbox1 一直连续输入
譬如 textbox1
a > enter > b > enter ........
都不会跳开textbox1
请问
除了关掉默认之外,
这个程式的逻辑该如何下
作者: soyoso (我是耀宗)   2016-12-09 08:00:00
判断内加上keycode=0
楼主: waiter337 (给开司一罐苏格登)   2016-12-09 19:13:00
搞定 感谢!

Links booklink

Contact Us: admin [ a t ] ucptt.com