Question

Vb中，怎么用方向键下键完美替代tab？ 我在form keydown过程写 If keycod

Vb中，怎么用方向键下键完美替代tab？
我在form keydown过程写

If keycode =40 then
Keycode =0
Sendkeys ("{tab}")
End if

可是这样写，文本框切换正常，但每次发出去的都是下键和tab一起，下拉菜单中每次都是选择下一个再切换，到了日期栏，在按下键干脆就不出来了，

Answer 1

不知道你在按键触发前，是否激活了按键事件，因为 Form_KeyDown 事件，是在窗体
获得焦点时候才能触发的，所以当焦点在控件上不是窗体上的时候，压根都没有触发按键事件，
所需要做的就是事先激活下按键，如在form load时候：

Private Sub Form_Load()
'//激活按键事件
Me.KeyPreview = True
End Sub

追问

这个窗口的属性栏一直设置的是true，不设置文本框都不能切换

因为我日期栏设置的不可tab切换，所以它每次下键和tab一起按，下键进到日期栏，然后就出不来了

总而言之，在外文本框是有用了，但切换到窗口控件的时候，无法屏蔽方向键的功能

追答

我添加了一个日期控件试了下，发现当它获取焦点以后，方向下键事件都失效了，按下只会执行它本身事件，向下移动一格，估计是这个控件强制...

既然要屏蔽掉日期控件方向键功能，可以在它获取焦点时候马上失去焦点，
这样因为无法获取焦点，方向键也不会起作用了
Private Sub Calendar1_GotFocus()
Text1.SetFocus
End Sub